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ELECTRONIC TYPEWRITER 
Roy T. Tasashiro, Ed.D. 

When your typing job is Mill and you do not want to go through the eany steps involved in uiing a word processor, the 
ELECTRONIC TYPEWRITER program beloH i« handy. It is easier to learn, faster to load and siepler to operate than a regular word 
processor. The prograe eeulates an electronic eeeory typewriter, in which you can edit a line of text before the line gets 
typed. Thus the prograe is suitable for seall typing iobslletters, notes, oeoos) or when one is not fully knowlegeable about 
usinq a word processor. ELECTRONIC TYPEWRITER uses the 40-coluan text screen, which is ordinarily not available in BASIC. 
This is the eode used in prograis such as TI-NR1TER and Kultiplan. ELECTRONIC TYPEWRITER contains eany features of a regular 
word processor, though it only handles 80 characters at a tiee. To run this prograe, the flowing are require i 
<l)TI-Extended BASIC, 12132-K Iteeory Expansion, <3!Printer accessed via RS-232 interface or Thereal printer, nodlfy line diu 
to suit your printer. Nhen the prograe is RUN, type in a line of up to 80 characters. The 80 characters are displayed on two 
rows on the screen. The text does not get typed until you press the < ENTER) key. Before pressing (ENTER), you can edit the 
line using the following function keys: 

(LEFT ARROW) (FCTN-S) Koves the cursor to the lift 

(RIGHT ARROW) (FCTN-O) Koves the cursor to the right 

(ERASE) (FCTN-3) Deletes the entire line of text on the screen 

(INS) (FCTN-2) Insert space for additional characters 

(DEL) (FCTK-1) Delete a single character 

If you want to skip a line on your paper, just press the (ENTER) key with no text showing on the proept line. To exit the 
prograe type END in all upper case letters, and then press (ENTER). 

loo immutmmmmtm 

110 ! I ELECTRONIC TYPEWRITER I 

120 'tmimtimmmmm 

130 'AUTHORS ROY T. TAKASHIRQ 

140 ! ISO ! DAT Ei SEPTEMBER 1984 

160 iFORsTl-XBASIC w/ Heeory Expansion and Printer 

170 CALL INIT u CALL L0AD(B196,43,248)«i CALL L0AD(I4376,B4,89,80,69,32,32,48,1 90) 

180 CALL LOAD(12288,0,0,0,I,48,36,255,0,255 I I 255 I 0,255,0,255,0 I 255,0,255,0,253, 0,49,148) 

190 CALL L0AD(12312,255,0,255, 0,255,0,255, 0,2, 48, 13,0,80,32,32,32,32,32,32,32,32 , 32,32,32) 

200 CALL L0AD(12334,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 32,32,32,32) 

210 CALL LOAD ( 1 2360, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,32,32,32) 

220 CALL L0A0(I2384,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 I 32, 32,0,253,0) 

230 CALL LOAD 1 1 2403, 42, 32, 6?, 7*. 69, 67, 84, 82, 79, 78, 73, 67, 32, 8#, 89, 80, 69, B7, 82, 73, 84,69,82,32) 

240 CALL LOAD 4 12432,42,32,69, 1 10, 11 6, 101 , 1 14,32,97,32, 108, 105, 110, 101 ,32, 1 1 1 , 102 ,32,116,101,120,116,58,32) 

250 CALL LOAD C 1 2456, 40, 84, 1 21 , 1 1 2, 10 1 , 32, 69, 78, 68, 32, 1 1 9, 1 04, 1 1 , 1 1 0, 32, 1 00, 1 1 1 , 110,101,46,41,32,2,224) 

260 CALLL0A0(12480,131,224,2,l,24O,129,2I6,l,131,212,216,l,14O,2,6,193,216,l,l4 0,2,2,1,244,133) 

270 CALL LOAD 1 12504,216,1, 140,2,6,193,216,1,140,2,2,224,48,0,4,192,2,1,128,0,4,3 2,32,32) 

280 CALL L0AD(12528,3,128,2,128,3,192,22,250,2,0,0,7,2,I,138,0,4,32,32,32,5,128, 2,128) 

290 CALL LOAD 4 1 2552, 0, 32, 22, 250, 2, 0, 0, 87, 4, 32, 32, 32, 5, 128, 2, 128, 0, 1 1 2, 22, 250, 2, , 0,47) 

300 CALL LOAD 4 12576, 4, 193, 4, 194, 208,98, 49, 1 20, 2, 33, 96,0, 4, 32, 32, 32, 5, 128,5,130,2 ,130,0,23) 

310 CALL LOAD ( 1 2600, 22, 243, 2, 1 , 32, 0, 2, 2, 0, 1 , 2 1 6, 1 29, 48, 36, 5, 1 30, 2, 1 30, 0, 81 , 22, 25 0,2,0) 

320 CALL LOAD 4 12624, 1 , 184,4, 193,4, 194,208,98,48, 146,2,33,96,0,4,32,32,32,5, 130,5 ,128,2,130) 

330 CALL LOAD 4 1 2648,0, 22, 22, 245.2,0, 1 , 224, 4, 194, 208, 98,48, 168, 2. 33, 96, 0,4, 32, 32, 32,5,130) 

340 CALL LOAD(12672 I 3,128,2,I30,0,22,22,245,2,0 1 2,48,200,0,48,32,6,160,50,240,19 2,32,48,32) 

350 CALL L0A0(12696,2,1, 126,0,4,32,32,32,2,0,5,0,216,0,131,116,4,193,2,0,32,0,2, 2) 

360 CALL L0AD4 12720,255,0,4,32,32,28, 144,32, 131, 124,19,26, 144, 160, 131 , 1 17, 19,243 ,2,3,0,5,6,3) 

370 CALL LOAD ( 1 2744, 2, 1 , 9, 1 92, 6, 1 , 22, 254, 4, 32, 32, 28, 144, 32, 13 1 , 1 24, 19, 1 1 , 144, 1 60 ,131,117,19,228) 

380 CALL L0AD(12768,4,32,32,28,192,195,22,239,152,32,48,34,131 I 1I7,22,220,216,32 ,131,117,48,34,4,193) 

390 CALL L0ADM2792,208,96,131, 117,2,129,8,0,22,15,4,194,192,160,48,32,2,130,2,4 8,22,2,4,96) 

400 CALL L0A0(12816,49,144,6,2,20O,2,48,32,6,16O,50,24O,4,96,49,l44,2,129,9,O,22 ,2,4,96) 

410 CALL LOAD»I2840,50,178,2,129,13,0,22,2,4,96,50,206,2,129 I 7,0,22,2,4,96,48,19 0,2,129) 

420 CALL L0A0(12864,4,O,22,2O,192 I 32,48,32,2,32,253,209,2,2,0,8O,192,194,6,3,216 ,163,48,34) 

430 CALL LOAD 4 1 2888, 48, 36, 6, 2, 128, 3, 22, 249, 2, 1 , 32,0,216,193,48,36,4,96,49,144,2, 129,3,0) 

440 CALL L0A0(12912,22,2O,192,96,48,32,2,33,253,209,192,193,2,0,O,8O,5,131,216,9 9,48,36,48,34) 
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450 CALL L0AD(12936,5,129,128,3,22,249,2,2,32,0,216,194,48,36,4,96,49,144,2,129, 32,0,26,2S1> 

460 CALL LOAD(12960,2,129,126,0,27,248,192,224,48,32,2,35,253,209,216,193,48,36, 6,160,50,240,192,96) 

470 CALL L0AD<12984,48,32,2,129,2,127,17,2,4,96,49,144,5,129,200,1, 48,32,4,96,49 ,144,120,321 

480 CALL LOAD(I3008,131, 124,131, 124,4, 192,2,1, 0,1, 2,2,48,36,4,32,32,16,120,32,13 1,124,131,124) 

490 CALL LOAD<13032,2,224,131,224,4,96,0,112,2,0,2,48,2,2,0,1, 4,193,208,98,48,36 ,2,33) 

500 CALL LOAD (1 3056, 96, 0, 4, 32, 32, 32, 5, 1 28 , 5, 1 30, 2, 1 30, 0, 8 1 , 22, 245, 4, 9 1 ) 

510 OPEN i 1 t -RS232. BA<9600. DA>8 a 

520 CALL LINKCTYPE'.M):: IF SE6$(W,I,3)=*END' THEN CLOSE II :s CALL PEEK (2, A, B):: CALL LOAD(-31804,A,8) 
530 PRINT IliNt <> 6QT0 520 



•SPEAK-N-PROOF' i THE TALKING PROOFREADER 
Roy T. Tuithiro, Ed.D. 

Nobody types perfectly. Whether you are writing a docuient on a word processor such as TI-NRITER, or typing in a BASIC 
prograi, a 1 stakes are virtually inevitable. It is easy to oiit a key word or transpose nuibers. It can be quite difficult to 
detect typing errors in a BASIC prograi especially when there are long series of numbers or syabols. Nhen you cannot find a 
Killing friend to read back to you what you typed, you can call upon 'SPEAK-N-PROOF' to help you proofread your TI-HRITER text 
file or BASIC (or Extended BASIC) Prograi. The voice synthesizer reads what- you typed, while you visually check this against 
the original document or prograi listing. Since your eyes focus on one listing rather than two, you are less likely to lose 
your place as you check your typing. 

To use SPEAK-N-PROOF, you lust have the prograi list or text file to be proofed in DISPLAY, VARIABLE 80 fonat. This is 
the fonat used by prograis such as TI-HRITER and EDITOR-ASSEMBLER. To proofread a TI-HRITER docuient, siiply SAVE the file 
froi TI-HRITER's Text Editor. To proofread a prograi listing, load the prograi to be proofed and LIST it to the disk using the 
fol lotting coinand; 

LIST "DSK1. PROG-LIST' 

After your file has been recorded on disk, insert the EXTENDED BASIC lodule and load SPEAK-N-PROOF PART 1. This prograi 
creates two new disk files which SPEAK-N-PROOF PART 2 will read, so be sure you have enough space on Disk I. Nhen you run the 
prograi, type the naie of the file you want to proofread. (To proofread a prograi, note that you lust type the listed 
filenaie, i.e. DSK1 . PROS-LIST .) If you want the words which are typed in lower case characters to be pronounced as words, 
instead of pronounced as individual letters, then press <Y> when you are asked 'Is text in both Upper and Lower case?(Y/N)". 

Nhen PART 1 ends, insert the Teninal Eiulator II lodule, select TI-BAS1C and load SPEAK-N-PROOF PART 2. RUN the prograi. 
Nhen you see the question "Is text in both Upper and Lower case?(Y/N)', press <Y> only if you also pressed <Y> in Part 1. If 
you want to inspect each line of text, select <Y> when you see the tessage "Pause after each line?(Y/N)\ The voice 
synthesizer then begins speaking your text file out loud. The text also appears on the screen. Jot down the errors or 
discrepancies you find. You can then lake the necessary corrections using the original editor (T I-WRITER, BASIC, Extended 
BASIC, etc.) on which you typed. 

ioo ! itttittmmtm 

110 ! t SPEAK-N-PROOF t 
120 ! t PART 1 t 
130 ! Itttltftltlfttltt 

140 'Author: Roy T. Taiashiro, Ed.D. 
ISO ISepteiber 1984/X-BASIC 

160 CALL CLEAR s: Af*'ltmtlimitim' :: PRINT TAB (&) : A$: TAB (6) ; ' t SPEAK-N 
-PROOF t':TABI6);'l PART 1 I' I TAB (61$ All : : : : 
170 INPUT 'File Naie: DSK1.':B$ t: B$*"0SKl.'tBt 
1B0 PRINT :"Is text in both Upper and Lower case?(Y/N)' 
190 CALL KEY(0,U,S):: IF (U078)t(U<>89)=-2 THEN 190 
200 CALL CLEAR :: PRINT 'Ref oriatting File...':'Please wait." 
210 OPEN »1:B»,INPUT .VARIABLE BO 
. 220 OPEN 12: "DSK1. PROOF-FILE", OUTPUT, INTERNAL, VARIABLE 90 

230 IF U=89 THEN OPEN I3:'DSK1. UPPER*, OUTPUT, INTERNAL, VARIABLE 90 
240 LINPUT IliNI :: IF U=7B THEN 270 

250 X«=" :: FOR 1=1 TO LEN(Ni):: A»=SE6$(N*,I,1):: IF ( ASC (A$) >96) AND CASC ( A$) 

<123)THEN A<=CHR*(ASC(A$)-32) 

260 X$=MA$ :: NEXT I ;; PRINT 13: X» 

270 PRINT »2:N$ :: IF E0F(1)=0 THEN 240 

280 CLOSE tl :: CLOSE 12 :: IF U=B9 THEN CLOSE 13 

290 CALL CLEAR :: PRINT "Refonatting completed.": :'RUN SPEAK-N-PROOF PART 2 with Teninal Eiulator.' :: END 



ioo rem ttmitmimm 

110 REN t SPEAK-N-PRODF t 
120 REM I PART 2 t 

130 rem mmmmmts 

110 REN AUTHOR: Roy T. Taaashiro, Ed, D. 

150 REN September 1984/Speech Synth, and Tert. Emulator II required. 
160 CALL CLEAR 

170 Ai-'ttuumtmutt' 

180 PRINT TAB(6);Af:TAB<6);*t SPEAK-N-PROOF »':TAB(6) 5 'I ' PART 2 t":TAB 
(6);A» : : : : : 

190 PRINT "Is text in both Upper and Loner case?(Y/N)' 

200 CALL KEY(0,U,S) 

210 IF <U<>89)*(U<>78)=-2 THEN 200 

220 PRINT : 'Pause after each line?(Y/N)" 

230 CALL KEY(3,P,S> 

240 IF (POB9)*(P<>78>«-2 THEN 230 

250 CALL CLEAR 

260 IF U*78 THEN 280 

270 OPEN I3:'DSK1. UPPER", INPUT , INTERNAL, VARIABLE 90 

280 OPEN It t "DSKI .PROOF-FILE" , XNPUI , INTERNAL, VARIABLE 90 

290 OPEN 12: 'SPEECH", OUTPUT 

300 INPUT II: HI 

310 PRINT N$ 

320 IF U=7B THEN 340 

330 INPUT 13: HI 

340 PRINT I2sN! 

350 IF P=78 THEN 380 

360 INPUT "Press <ENTER> ':E$ 

370 CALL HCHARI23. 1,32,32) 

380 IF E0F<1)=0 THEN 300 

390 CLOSE II 

400 CLOSE 12 

410 IF U=78 THEN 430 

420 CLOSE 13 

430 END 



COMPUTER BRIDGE (Voluie 3. Nuiber 10/11, Oct/Nov 1984) Page 3 



US INS THE 40-C0U1M TEXT SCREEN IN EXTENDED BASIC 
Roy T. Tatashiro, Ed. D. 



I hivi often wanted to use a 40-colutn screen In i BASIC prograt because you can put 43 percent tort text on it than on 
tht nortal 28-coIutn screen in BASIC. However, the 40-colutn screen it not available in Tl-BASIC or Extended BASIC, even 
though thii 40-coIum screen is present in tht TM9/4A RON. The prograt. bel on takes it possible to create and iipleaent 
prograas in Extended BASIC on the 40-colutn screen. The 32-K Hetory Expansion, tht Extended BASIC cartridge, and cassette or 
disk syttes art required. To access tht 40-colutn screen, type in and savt tht prograt 'FORTY-COLUMN TEXT SCREEN FOR 
X-BASIC'(beloii), on disk or cassette. Then cotpose your prograt for tht 40-colutn screen. 

To turn on the 40-colutn screen in your prograt, ust tht instruction, CALL LINKCFORTY'). You cay ust tost of tht noreal 
Extended BASIC instructions, but takt tht foil owing substitutions! 



(If you dish to change tht colors of tht character s on tht screen, add Lines 16000 to 16020 in the SAMPLE PROGRAM 
bel ow to your prograt as tht last routint in your prograt. This takes it ' possible to ust tht above 
CALL COLORS (Foreground, Back ground) instruction. Ust tht color codesd-16) nortally used in BASIC to designate 
forground and background colon. Set cxatple in tht 'SAMPLE PROGRAM" below. I 

Do not ust SPRITE instructions (CALL SPRITE, CALL MAGNIFY, CALL COINC, etc.) on tht 40-colutn screen. Other instructions 
such as CALL HCHAR and CALL 6CHAR work, but since they are oriented to tht 32-coIutn screen rather than the 40 colutn screen, 
the locations are confusing. 

To switch back to tht nortal 32-coluan screen in Extended BASIC, ust the instructions, CALL LINKCBSCRN'). Bt surt to 
include this CALL LINK when you exit the Extended BASIC prograt-otheririsi your prograt till not bt visible on the screen. 
(See line 200 in the 'SAMPLE PROGRAN" below.) 
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Kota that the new INPUT and DISPLAY instructions use string variables only. Thus, nuaeric variables tust be converted 
before or after these CALLS. For exaaple, to DISPLAY a nuteric variable, use the following todeli 



To RUN your prograt, first load and RUN the prograt belowfFORTY-COLUHN TEXT SCREEN FOR X-BASIC), then load and RUN your 
prograt. As long as you do not ust CALL IN1T or load another Assembly Languge prograe, you can run your prograt without 
ra-RUNning the •FORTY-COIUHN TEXT' Prograe. 




210 N>l::Nt*5TRf (N)siCALL LINKCDISPL',24,1,M) 



(In this cxatple, the value in N, which is I, is 
converted to the string variable Nl and displayed 
at row 24, colutn I.) 



Or, to INPUT a nuaeric variablei 
230 CALL INPUT 124, |,N1)iiN»VAL(m> 



(In this cxatple, a nuaber is accepted at row 24, 
colutn 1 and assigned to N.I 



£ 100 !lllttllltltttttl|||ttt 

110 ! I FORTY-COLUMN TEXT I 
120 ! I SCREEN FOR X-BASIC I 

130 !miiiiummtimii 

HO ! AUTHOR: ROY T. TANASHIRO, EO.D 

150 .'DECEMBER 1984, X-BASIC K/ MEMORY EXPANSION 

160 ! SEE ACCOMPANYING INSTRUCTIONS FOR USING THIS PROGRAM 

170 CALL INIT 

MNBHM0*' 

*jv tnLL LUHuu^^uo,v,l > #,l?Z,#,32 f 32,12,200.32.131.74.48.36. 192.224 48 SA 1 kl n 9« ? t\ 
260 CALL LOAD ( 1 2432, 253, 216,2, 34, 0, 40, *, 3, 22 252,200,2 48 34 2 1 4 « » « 3l ' 

310 CALL tO«B«25W,| l W j W > O l 4,32 32 MlUn£t^S^«7||l%l $88 

330 CALL ^0(12600,6,160,48,118,2,1,0,253,192,32,48,34.160.64.2.129 3 192 18 7 J I * iwi 
340 CALL LOAD ( 1 2624, 200, 1,48, 36, 4,1 96, 193, 64, 2^ 1 , 32, 0, 21 7, 1 * 5o! 1 9 1 ?2 1 * 1 26 * 4 3 2* 32 32) 

LOAD 276^3^3? ^o lV?w 8 « .32 

« St lS":i"!:::;"::i:::^5!:::!;:;;;' M -"' I? ' K - 5 ' 128 ' J - ,!B ' ! '''' j " =« ; 

IIS S5± tiNK( ( ::^!. ! 1 S A i L ^ INK< " DISPL "' 1 '' s -"^ "««.> 

I fit S^":ii:feri£ir---- — 

170 CALL COLORS (F, B) 

180 CALL LINK ( "D1SPL" , 23, 1 , "Enter < 1 > to go on, or <2> to exits") 
190 CALL LINK<"INPUT",23,38,K*>«: IF K*-l- THEN 120 ' 
200 CALL L I NK ( " BSCRN " ) : : END 
16000 SUB COLORS <F,B) 

16020 ^ N ^ 0AD(12350 ' 16 *< F - 1 > + <E'-1)>:: CALL LINK ( "FORTY" ) 



I Author i Note: S eve Vukelich published routines for accessing the 40-colu.n screen in the July/August 1984 issue of the 
McDonnell-Doughs TI-SIS Group Newsletter. While the routines in this irtlde ire siailar to Vukelich's, his 
routines could access only 19 of the 24 lines on the screen, with 'strange charters' appearing in rows 20-24. The 
X «ff2 ! " I! I.''"!!? h " ,, ; ,iMted th "« ••^»«« characters-, ,o the entire screen is available for 

rSrJiiS I? , ! 2 I!' '* * Mt °* r0Utin " provSdes 1 utiIit * ior e,wt «« th « »"een, and for 

controlling the color of the characters and screen. 
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UTILITY SUBROUTINES IN BASIC: INTRODUCTION 
by Roy Taaashiro 

The subroutines I aa presenting in this and future articles are versatile aids in writing prograas in TI -BASIC (and 
TI-Extended-BASIC). Host of these routines are helpful in formatting text on the screen. To use the subroutines, follow the 
instructions provided with each routine. There is a "saeple aain prograa" to illustrate the application of each subroutine. 
You say call these subroutines, as aany tiaes in the prograa as you need the*. Note that the variables listed in each 
subroutine Bay change after the routine is completed, so these variables should not be used elsewhere in the program 
indiscriminately. 

FIREWORKS 
by Roy T. Tamashiro, Ed.D. 
Webster University 

One siiple yet very attractive reinforcement for correct answers in a coaputer-based instructional activity is the 
following subroutine which I call "FIREWORKS*. This subroutine can be used in drill or quiz programs to indicate that a 
correct answer has been selected. 

This subroutine works on either TI BASIC or EXTENDED BASIC. 

29B0 REM tFIREWORKS SUBROUTINE! 

2990 REN tUSES THE VARIABLES I, J 

3000 RANDOMIZE 

3010 FOR 1=1 TO 15 

3020 J=INT(l4tRND)+2 

3030 CALL SCREEN (J ) 

3040 CALL SOUND 150, 110+J A 3,2) 

3050 NEXT J 

3060 CALL SCREEN (4) 

3070 INPUT 'PRESS < ENTER) TO 60 ON. ':EN$ 
3080 RETURN 

Here is a saaple prograa which uses the fireworks subroutine. The correct answer to the problems gives you fireworks. 

100 REM ISAHPLE PROGRAHS 

110 I'M 

120 CALL CLEAR 

130 PRINT 'WHAT IS 9 X"; I; -?"5 : : 

140 INPUT "ENTER YOUR ANSWER: *:AN 

150 IF AN=9tI THEN 180 

160 PRINT : : "NO, IT'S ";9tl 

170 60T0 190 

180 60SUB 3000 

190 IF I<5 THEN 110 

200 END 

SCREEN BORDER 
by Roy T. Taaashiro, Ed.D. 
Webster University 

This subroutine for TI BASIC or EXTENDED BASIC creates a red border around the edge of the screen after all the aaterial to be 
displayed has been PRINTed to the screen. This routine uses character code 128 for the red border, so the prograa cannot use 
characters 128-135 for other purposes without changing the color definition. 

980 REM I BORDER SUBROUTINE I 
990 REN t USES THE VARIABLES K,S 
1000 PRINT " PRESS (ENTER) " 
1005 CALL C0L0R(13,9,9) 
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1010 CALL HCHARU, 1,128,32) 
1020 CALL VCHARU, 1,128, 24) 
1030 CALL VCHARU, 2, 128,24) 
1040 CALL VCHARU, 31, 128,24) 
1050 CALL VCHARU, 32,128,24) 
1060 CALL HCHAR(24,1,128,32) 
1070 CALL HCHAR123, 18,30) 
1080 CALL KEY(0,K,S» 
1090 CALL HCHARI23, 18.32) 
1100 IF <S=0) + (KO13)THEN 1070 
1110 CALL CLEAR 
1120 RETURN 

You can test this subroutine with the following saaple program: 

100 REN I TEST PROGRAM t 
110 CALL CLEAR 
120 A$="THIS IS A TEST" 
130 PRINT TAB(7);A$: : : 
140 PRINT TAB(7);A$: : : 
150 PRINT TAB(7);AI: : : 
160 PRINT : : : 
170 60SUB 1000 
180 END 

PLACING A BOX AROUND A WORD 
by Roy T. Tanashiro, Ed.D. 
Hebster University 

This routine places a red box around a string which you would like to highlight on the screen. You lust assign your string of 
up to 28 characters to the variable HI before calling this subroutine. Also, the variable R mist be the row nuiber (3-21) 
where you wish to place the string and C is the coluin nuiber. 

2940 REM t TO BOX A WORD SUBROUTINE t 
2950 REN t USES THE VARIABLES I,L, AS IN SUBROUTINE 
2960 REN I USES VARIABLES R,C,H$ FROM MAIN PROGRAM 
2970 REN IR=R0H NUMBER (3-22) 

2980 REN tC=C0LUHN NUMBER (MI N. 3, RAX. 28-LEN5TH OF HI) 

2990 REN *H«=THE STRINB TO BE BOXED 

3000 L=LEN(«) 

3010 CALL C0L0R(13,9,9) 

3020 FOR 1=1 TO L 

3030 AS=ASC(SE6$(M,I,1)) 

3040 CALL HCHAR(R,C+I,AS) 

3050 NEXT I 

3060 CALL VCHAR(R-2,C-1, 128,4) 
3070 CALL HCHAR(R-2,C-l,128,L+4) 
3080 CALL HCHAR(R*2,C-l,128,L+4) 
3090 CALL VCHAR(R-2,C+2+L, 128,4) 
3100 RETURN 

Of course, the color of the box tay be changed if you change the color codes in line 3010. The subroutine nay be called 
fro« progran lines which designate the string to be displayed and its location. The following example illustrates this idea. 

100 REM t SAMPLE CALLIN6 PROGRAM II t 

110 CALL CLEAR 

120 N$="THIS IS A TEST." 

130 R=10 
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7 

140 012 

150 60SUB 3000 

160 GOTO 160 

Another use of this subroutine is to place a box around the word which the user enters when the progran is RUN. The following 
satple program illustrates this. 

100 REM t SAMPLE CALLING PROGRAM 12 t 
110 CALL CLEAR 

120 INPUT "ENTER A WORDILIHIT 28 CHRS.) ':HI 

130 INPUT "ROW NO. (3-22) ":R 

140 PRINT "COL N0.t3-";28-LEN(M); , >"; 

150 INPUT C 

160 CALL CLEAR 

170 GOSUB 3000 

1B0 60T0 180 

CENTERING A STRIN6 
by Roy T. Taiashiro, Ed.D. 
Webster University 

There are tany situations in which we would like to see a aessage displayed in the center of a line on the screen. This 
subroutine enables you to center a string on a line without having to figure out the starting colUM location. The subroutine 
does this calculation for you. The subroutine is as follows: 

1980 REN I SUBROUTINE TO CENTER A STRING I 
1990 REM I USES H$ FROM MAIN PR06RAM 
2000 PRINT TAB(14-INT(LEN(Nf)/2));Ht 
2010 RETURN 

The string you want centered iust be assigned to the variable W* and it lust not be longer than 28 characters. The following 
is a saiple calling program. 

100 REM I SAMPLE CALLING PR06RAH tl I 

110 CALL CLEAR 

120 W$="THIS IS A TEST." 

130 GOSUB 2000 

140 END 

This centering subroutine tay be used in conjunction with strings entered when the prograi is RUN, such as via INPUT 
instructions. The followng is an illustration of this idea. 

100 REM ISAHPLE CALLIN6 PR06RAH 12 t 
110 CALL CLEAR 

120 INPUT "ENTER A WORD (HAX. : 28 CHRS.) ':W 
130 PRINT : : : 
140 GOSUB 2000 
150 END 

A variation of this subroutine is its use in conjunction with the subroutine for "ELIMINATING SCREEN SCROLL IN TI-BASIC" (See 
separate instructions on this topic). When these two subroutines are combined, a aessage can be centered on any line on the 
screen. To do this, add the two lines below to the "DISPLAY AT SUBROUTINE" described as Method II of the ELIMINATING SCREEN 
SCROLL subroutine. When you want to center a aessage, assign your aessage to the variable HI and row nuiber to R and call 
for the subroutine at line 1004. 

1002 60T0 1010 

1004 C=15-INT(LEN(W$)/2) 
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UTILITY 8U8ftO(JTIN£S III BASICt INTROOUCTtON 

by Roy Taeashiro / 

The subroutines I it presenting in this and last tonths issue of THE BRIM ire versatile lids in writing programs in 
TI-8ASIC (and TI-Extended-BASIC). Host of these routines are helpful in fonatting text on the screen. To use the 
subroutines, folloM the instructions provided vith each routine. There is a "saaple lain prograi'dast aonths issue) to 
illustrate the application of each subroutine. You aay call these subroutines, as iany tiees in the prograi as you need thea. 
Note that the variables listed in each subroutine eay change after the routine is coapleted, so these variables should not be 
used elsewhere in the prograi indiscrieinately. 

ELIHINATIN6 SCREEN SCROLL IN TI-MSIC 
by Roy T. Taaashiro, Ed.D. 
Webster University 



when the PRINT instruction is used in TI-BASIC, the eaterial is written on the last row of the screen. Another PRINT 
statement eaves the previous line display up the screen and the current string or nueber is displayed on the bottoe of the 
screen. If you are displaying an entire screenful of information, it can be irritating to Match lines scroll up froa the 
bottoa of the screen, especially when there aay bi several pages of intonation such as in an instructional tutorial. The 
following listings illustrate two method* of eliiinating this screen scroll in TI-BASIC. (NOTEi This scrolling display is not 
a problei in TI EXTENDED BASIC since the DISPLAY AT instruction lay be used.) 

METHOD ti This approach siaulates EXTENDED BASIC'S DISPLAY AT instruction. In the aain part of your prograi define the 
lateral you Mint to display at 11$ and assign the row number to the variable Rl. You can also specify a coluan nueber if 
you do not want the display to bo at the left edge of the screen. Then call the subroutine at line 1000 in this exaaple. (If 
you specify a coluan nuiber, use 60SUB 1010.) Caution! Nt cannot be lore than 28 characters. 

970 REN tOISPLAY AT SUBROUTINE I 

980 REN tUSES VARIABLES Rl.C.W FROH RAIN PR06RAN t 

990 REN IUSES THE VARIABLES I, LI I 

1000 C»2 .... 

1010 FOR 1*1 TO LEK(W) 

1020 L«*SE6f (H*,I,I) 

1030 CALL HCHAR(RI,C*I,ASC(U)) 

1040 NEXT I 

1050 RETURN 

METHOD 2t This approach involves changing the screen background colx so the scrolling is invisible, then changing the 
screen color again after the images have appeared on the screen. This approach is euch faster than Method 1 when you have a 
screenful of material. The prograi aust be initialized with a routine to change the colors of all characters to be displayed. 
In this exaaple, the characters are changed to light blue (color code «) in line 130. Enter lines 110-150 at the beginning of 
your prograi. Then use PRINT statements to display the oateriil for a single screen. Call for the subroutine (G0SUB 1000) 
after all the PRINT statements for the page. 

100 REN t SAMPLE PROGRAM 
110 CALL CLEAR 
120 FOR I«l TO 12 
130 CALL COLOR! 1,6,1) 
140 NEXT I 
150 CALL SCREEN (6) 
160 A**'THIS IS A TEST!' 
170 PRINT TAB(7);A$: : t 
180 PRINT TABI7)jAI: > > 
190 PRINT TAB (71 ; At: : I 
200 PRINT | | t i | | 
210 60SUB 1000 

The rest of your prograi continues between lines 210 and 980. The subroutine which switches the screen background color 
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if ted below. 

// 

980 END / ' 

990 m I THE COLOR SWITCH SUBROUTINE I 
1000 CALL SCREEN (16) 

1010 INPUT 'PRESS < ENTER) TO 60 ON. *:ENI 
1020 CALL CLEAR 
1030 CALL SCREEN (6) 
1040 RETURN 

ACCEPTING INPUT ANYKHERE ON THE SCREEN IN TI-BASIC 
by Roy T. Taeashiro, Ed. D. 
Webster University 

Mien the INPUT instruction ii given in TI-BASIC, the eater ial is wit ten on the last row of the screen. In designing a 
screen, you tay want the INPUT to be accepted on the screen in locataiont other than the last row. The following subroutine 
can be called to accept input on any ran and coluan location on the screen you designate. In the tain part of your prograe row 
nueber to the variable Rl and the coluan nueber to C. Then call the subroutine at line 2000 (or at 2010 if you defined 
your own coluen location). The input is returned to the tain prograe in the variable naae KM. 



1970 REN t ACCEPT AT SUBROUTINES 

1980 REN tUSES VARIABLES C,R1 FROM RAIN PROGRAM 

1990 REN IUSES THE VARIABLES K,I,S,NDI 

2000 C-3 

2010 N0l«" 

2020 K«0 

2030 FOR I«C TO 30 
2040 IF K»127 THEN 2190 
2050 CALL HCHAR(R1,I,30) 
206O CALL KEY(0,K,S) 
2070 IF K<>8 THEN 2130 
2080 I'M 

2090 CALL HCHAR (Rl , 1+1,32) 

2100 IF DC THEN 2050 

2110 I«C 

2120 GOTO 2050 

2130 IF K<>9 THEN 2150 

2140 K*32 

2150 IF K<>13 THEN 2170 
2160 K»127 

2170 IF (K<32)*(S*0)THEN 2060 
2180 CALL HCHAR(R1,I,K) 
2190 NEIT I 
2200 K«0 

2210 FOR I«C TO 30 
2220 IF K>127 THEN 2260 
2230 CALL 6CHAR(R1,I,K) 
2240 IF K=127 THEN 2260 
2250 NDf=NDfi CHRKK) 
2260 NEXT I 
2270 RETURN 
2280 STOP 

To check if your subroutine works enter the following saeple tain prograii 

100 REN t SAMPLE MAIN PR06RAH t 
110 CALL CLEAR 
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120 Rl»5 
130 C«10 
140 60SUB 2010 
150 PRINT NDI 
160 END 



A cursor appears in row 3, coluin 10 and waits for you to type a eessage. That tessage is displayed at the bottos of the 
screen after you press < ENTER). 

AUTOMATIC KORD KRAP 
by Roy T. Taeashiro 
Nebster University 

Hords split between two lines on the screen can be * nuisance, especially Nhen a long phrase is entered by the user. The 
following subroutine elieinates the 'split' word on the screen. This it generally referred to as 'Autoeatic Word Nrap.' The 
subroutine eay be used in either TI BASIC or TI Extended BASIC. 



6970 REN ISUBROUTIKE FOR AUTONORD MRAP 

6980 REfl tUSES HI FROM MAIN PROGRAM 

6990 REH tUSES THE VARIABLES L,f!,W(MJ 

7000 Yl«28 

7010 L«LEN(M) 

7020 1*1 

7030 B«1I1«W 

7040 IF L>Y1 THEN 7070 

7050 PRINT Bt(I) 

7060 RETURN 

7070 Bf(Itll*SEE$(8f(I),l,Yl) . 

7080 B$(I»2)*S£6I(8UI),YI*I,L-Yl) 

7090 IF SE6l(BI(IH) l Vl l l)<CHRt(32)THEII 7140 

7100 BI(I»2)«SE6IIBIIMI,YI,l)iB$II»2) 

7110 l*(IMI«SE6f(B$U»l),l,YH) 

7120 Y1«Y1-1 

7130 60T0 7070 

7140 PRINT BKI+l) 

7150 1-1*2 

7160 L-LENIBKD) 

7170 Yl«28 

7180 IF L>0 THEN 7040 
7190 RETURN 

Here's a saeple eain prograe to illustrate the subroutine. 

100 REH t SAMPLE HAIN PR06RAH 
110 CALL CLEAR 

120 W»»THIB IS A TEST. THIS IS A TEST. SEE WHAT HAPPENS WITH A VERY LONS WORD SUCH AS 

'HIPPOPOTAMUSES." 

130 PRINT Nfiiu 

140 PRINT "NON, SEE THE AUTO HORO NRAPi'u 
150 60 SUB 7000 
160 END 
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AUTOMATIC MM NRAP ON INPUT 

by Roy T. Tatashiro ' 3 

Kebster University 

M you found tht "Autotttic Kord Nrap" routine hilpful, You tight alto like to have an auto word wrap feature while the 
user it typing his input. The subroutine belott automatically wrapt a word to the next line if the last character on the right 
edge of the screen it not a space. You tutt designate the row nueber using the variable R and the colutn nueber (C is a 
nueber 1 lest than the coluen nutber desired) before calling this tubroutine. The ttring input it returned to the tain prograt 
in the variable NDf. The routine tay be used in TI BASIC or TI Extended BASIC. 



8960 REH 4AUTQ-NQR0 NRAP ON INPUT 

8970 REN ISEND R=R0N NUMBER; C=C0LUHN NUMBER- 1 TO SUBROUTINE 

8980 REN I THE SUBROUTINE RETURNS INPUT AS NO! 

8990 REN ITHE SUBROUTINE USES VARIABLES! R, C, tC, S, V 1 , 1 2» h 1 , DM 

9000 NO!"" 

9010 I«R*<C*1>*2 

9020 CALL HCHAR{R,C*I,30) 

9030 CALL KEY(0,K,S) 

9040 IF K<>8 THEN 9140 

9050 IF R*(C*1)/2»I THEN 9020 

9060 CALL HCHAR(R,C*1,32) 

9070 C«C-1 

9080 L1=LEN(ND$)-1 

9090 N0$»SE6l(ND»,l,Ll) 

9100 IF COl THEN 9020 

9110 C»29 

9120 R=R-1 

9130 GOTO 9020 

9140 IF K<>9 THEN 9160 

9150 K«32 

9160 IF KOIS THEN 9190 
9170 CALL HCHAR(R,Ctl,32) 
9180 RETURN 

9190 IF (K<I3)*<S*0)THEN 9030 
9200 CALL HCHAR(R,C*!,K) 
9210 NDt s NDUCKRI(K) 
9220 C-C*l 

9230 IF CO30 THEN 9020 
9240 DN>0 

9250 FOR 12-30 TO 3 STEP -1 
9260 IF DN*1 THEN 9380 
9270 CALL KHAR (R, 1 2, VI) 
9280 IF VI«32 THEN 9360 
9290 FOR NI»29 TO 3 STEP -1 
9300 CALL 6CHAR<R*1,HI,CR) 
9310 CALL HCHAR(R*1,N10,CR) 
9320 NEXT HI 

9330 CALL HCHAR(R,I2,32) 
9340 CALL KCHAR<R*1,3,V1) 
9350 60T0 9380 
9360 DN»1 
9370 C«32-I2 
9380 NEXT 12 
9390 R*fttl 
9400 60T0 9020 



Here is a satple prograt to test the subroutine. 
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100 REM tSAMPLE MAIM PROGRAM 

110 CALL CLEAR 

120 R«10 

130 C*10 

140 GOSUB 9000 

150 PRINT ND« 

140 END 

One limitation of this routine is its relatively sIom speed. In developing a prograa you should evaluate whether this 
slow speed Hill detract fro* the activity. If so, you should consider using the built in INPUT and using the "AUTOMATIC WORD 
NRAP* instructions discussed previously. 

THE POOR OF -FORTH 
by lit Siydlowski 

I received the following prograa froa Charles Nolan in the June issue of Bits and Bytes. It is a fine piece of work by 
Chris Schrai. It is probably the best reason, so far, to have the TI FORTH systea up and running. I have yet to find a disk 
that it Hill not copy (protected or unprotected). 

SCR 133 

( half-fast one-drive disk copier - C. Schraa 4/28/84 ) 

1 ( COLO load this screen and DUPLICATE ) 

2 BASE-) DECIMAL -SYNONYMS VARIABLE BIS 1S3S8 ALLOT 

3 I ?l EMPTY-BUFFERS BLOCK 10 ♦ I 256 1024 l/HOD SNAP 0* 0' • j 

4 I m CR .* PRESS ANY KEY ' 32 6PLLNK KEY DROP CR CR | 

5 l LHO .' LOAD MASTER BISK' PAX j t LCD .' LOAD COPY DISK' PAK | 

6 l DUPLICATE CIS 60TQXY LHD DISK.LO ! ?• DUP DUP 

7 DISK SIZE ! DISK HI ! LCD 

8 .' ... FORMATTING COPY DISK ...'0 FORMAT-DISK 

I DO CL6 60T0XV LHD 

10 I 13 DO DUP I « DUP . CR BLOCK BIS I 1024 t ♦ 1024 CHOVE LOOP 

II as GOTOIY LCD 

12 15 DO DUP I ♦ DUP . CR BLOCK BI6 1 1024 t ♦ SNAP 1024 CHOVE 

13 UPDATE FLUSH LOOP 

14 DROP 15 ♦LOOP I DISK.LO ! | R->BASE 
13 

For those of us with only on* disk drive, this prograa Hill copy a single-sided disk in & passes and a double-sided disk in 12 
passes. It grabs the data off the taster disk and deposits it on the copy disk in 13K gulps. 

That's half at efficient at the WICK-COPYer (TM) prograa because there art only 17184 bytes of Dictionary/Stick space 
available In TI FORTH, and this prograa uses just about all of it. I could have used tha available VDP teaory or reused the 
disk buffers, but I wanted to keep it staple. l'$ just a beginner. Anyway, unlike QUICK-COPYer, this prograa won't 
ttlf-destruct if you test with it. 

To use this prograa, LOAD FORTH or type COLD it you have already beta working in FORTH. Load the 'Screen' on which the program 
it stored. (I used SCR ID Type DUPLICATE and follow the proaptt. Khcn through copying disks, type COLD or FORGET BI6 to 
restore the dictionary space or HON to tiit FORTH. NOTEi When copying a double-sided disk, the Copy Disk will have to be 
previously foraatted using tha Disk Manager Cartridge. 

A word of caution about TI FORTH' t operating tystea. Covering tha «rite-protect notch on a FORTH disk has no effect at all !! 
That Mans DON'T USE YOUR MASTER DISK FOR ANY REASON EXCEPT TO HAKE A BACKUP OF ITSELF!!!!! If you add a new 'screen' to a 
FORTH disk that contains the Kernel prograa, the Kernel prograa will be written over! That aeans use a separate disk for 
SCREENS! 



CWUTER BRIDGE (Voluae 3, Nueoer 7/8, July/August 1984) Page 6 



COMPUTER PROGRAMS WHICH GIVE BIRTH TO NEW COMPUTER PROGRAMS 

Rov T. Tamashi to, Ed.D. 

Even Kith all the wonderful things computers can do, I have often had this one tush: I wish the coiputer could write proqrais 
for ae. Creating programs takes a lot of tine, and it seeis that the coiputer itself ought to be able to speed jo this 
process. At first glance this idea seees exotic, if not impossible, because this would Man that the coiputer mil do the 
thinking which is ordinarily done by the HBuBmbaBnB prograiier. A coiputer prograi which writes other coiputer programs would b 
e soiethingthat literally replaces a prograiaer! A radical thought! 

Actually, it is really possible for prograis to create new prograis. It is even possible to do this on stall coiputers. The 
prograi listed below called NUMBER MOTHER is a deionstration of this idea. This prograi will not put prograuers out o- : work, 
out it does show how a prograi can generate new, free-standing prograis. NUMBER MOTHER will create various suple quizzes 
based upon a lystery fonula which you specify in the MOTHER prograi. Each till you use NUMBER MOTHER, you can «nter a 
different aystery fonula, taking the "OFFSPRING* prograi different than the previous one. 

The Extended BASIC cartridge and a Disk Drive systet are required for using NUMBER MOTHER. Follow the steps below to use the 
orograi: 

1. Type in and SAVE the prograi listing below for NUMBER MOTHER. 

2. RUN the prograi. The prograt will ask you to select what you want the tystery fonula to be in the offspring prograii. The 
fonula tust include an arithmetic operation (add, subtract, lultiply or divide) and a factor (any nutber). 

3. Then NUMBER MOTHER will ask you for a filenaie for the offspring prograi. You can enter any valid naie (except of course 
the naie you have given the NUMBER MOTHER prograi on your disk). For exaiple, when you see the proipt, "Enter a filenine for 
:.\e FORMULA 6UESS prograi." enter: 

DSKI. CHILD 

«. Hhen you get the READY lessage, clear the coiputer's leiory bv typing NEW. (You lay also type BYE or use (QUIT) (FC1N =) to 
return to the title screen, then reselect Extended BASIC.) 

5. When the leiory is clear, use the MERGE conand to load the OFFSPRING prograi. In our exaiple. type: 
MERGE DSU.ChILD 

Do not use the usual OLD to load the offspring prograi the f irstj time. 

c. After completing the MERGE conand, you may RUN the prograi, LIST the prograi or EDIT lines in the offspring prograi as you 
nonally do with other BASIC programs. Hhen the offspring prograi is RUN. the user is asked to enter a 'starting 
r.aiber.' Then 10 nuibers will appear. These nuibers change according to the operation and the factor vou entered in the 
MOTHER prograi. The user tries to guess this original fonula. 

. Optionally, You lay use the SAVE comand to record the offspring prograi on cassette or disk. Use the OLD couand to load 
the cassette or disk prograi which you have recorded using this SAVE couand. 

Notice that the offspring prograi is independent of the MOTHER prograi. Thus you can have NUMBER MOTHER on one disk and tne 
offspring prograis on separate disks, without ever needing NUMBER MOTHER to run the offspring prograis. Note also that, in 
this exaipie. the offspring prograi will RUN in either BASIC or Extended BASIC, if you completed step 7. 



iyfi 'IIIIIIIMItllllllllll 

/ 6? 110 'I THE NUMBER 10 InER I 
120 ! 1 1 1 • • • 1 1 • I ( I « 1 1 1 If • t • 

130 'AUTHOR: ROY TAMASH1R0.E0. D. 

140 'FEBRUARY 19B5.X-BASIC WITH DISK SYSTEM 

150 'SEE INSTRUCTIONS IN ' THE COMPUTER BR1D6E\FE8. 1985 

loO 6CSUB 480 :: DISPLAY ATi3,l):"Nhich operation do you want in the quiz?' 

170 OISPLAf ATl6,3»t'l Addition" :: DISPLAY ATl7.3i: , 2 Suotriction' 

160 DISPLAY AT(8,3):"3 Multiplication" :: DISPLAY AT(9,3>:'4 Division* :: DISPLAY AT 1 10. 5) : 'Your Choice ( 1-0 : " 

190 ACCEPT AT(10,23)S!Z£U)VALIDATElM234 , ):u» :: 0=VAL(04>:: ON 60SUB 490,500 ,510.520 

200 60SUB 480 :: DISPLAY AT 13, 1 ): "Enter a factor (a nuaber):" 

210 DISPLAY AT(4,1):0« :: ACCEPT AT(4,LEN(0»iOVALlDATE<NUHERIC):F :: FA*=STR$(F) 

220 60SU6 480 :: DISPLAY AT < 3, 1 ): "Mystery Factor in FORMULA GUESS Mil be: 0*;F 

210 DISPLAY AT(7.1):"Enter a filename for the FORMULA GUESS prograa.' :: DISPLAY AT i9 ( I ) : -0SK1 . " :: ACCEPT 
AT(9,4)SiiE(-10):FI 

240 OPEN ll:"DSK'l.F».OISPLAY .VARIABLE 163 

250 60SUB 4B0 :: DISPLAY AT <3, 1 >: "FORMULA GUESS being created on DSK'jFI 
260 READ D II IF 0=999 THEN 460 ELSE GOSUB 380 
270 IF KH41 THEN 370 

280 PRINT ll:CHRI(83);CHR$lt90);CHRI(B3>;:: ON 60SUB 330,340,350,360 
290 PRINT ll:CHRK200);CHR$(LEN(FA$));FA$;:: GOSUB 450 

300 GOSUB 380 :: PRINT ll:CHR$(79) jCHR$(36):CHR»ll90);CHR$(199)jCHR»(LEN(0»)); Olj:: 60SUB 450 

310 GOSUB 380 u PRINT II :CHR« (70) ;CHRS (&S|;CHR$ (36) ;CHR« ( 1901 ;CHR* ( 19?) ; CHR$ILEN(FA*));FA»;i: GOSUB 450 

320 GOSUB 380 :: PRINT • 1 : CHR$ (79) ; CHR« ( 190) ;CHRi (200) ; CHR$ ( 1 ) ; STR« (0) ; : I GOSUB 450 i: GOTO 260 

330 PRINT ll:CHRIIl93);:t RETURN 

340 PRINT ll:CHRt(194);:: RETUR.4 

350 PRINT II :CHR»( I95);:t RETURN 

360 PRINT ll:CKR$(l96);:i RETURN 

370 READ G xt ON 6 GOSUB 390.390,390,430 tl GOSUB 450 ll GOTO 260 

380 N*H»I II PRINT ll:CHRtll);CHRI(N);CHRI(D):i: RETURN 1 

390 READ El tl ON G GOSUB 400,410,420 t: RETURN 

400 PRINT lliCHR$(200);CHR4(LEN(E());E«::: RETURN 

410 PRINT ll:CHRl(199>;CHRS(LEN(Et)>;ES;:: RETURN 

420 REAO Hi II GOSUB 410 tl PRINT # I : CHR* 1 181 ) ;H$; : : RETURN 

430 READ K :: IF KOO THEN PRINT ll:CHR$(K);:: GOTO 430 • 

440 GOSUB 450 :: GOTO 260 

450 PRINT IliCHRKO)!! RETURN 

460 PRINT ll:CHRII255);CHRt(253>:: CLOSE II :: CALL CLEAR 

470 PRINT 'Type NEW and < ENTER > , then Type MERGE DSK';Ff;:'then RUN the prograi.' :: END 

480 CALL CLEAR :: DISPLAY AT (1,6) I "THE NUMBER MOTHER' :: CALL HChARI2,8, 45,17):: RETURN 

490 OM'ADD' :: RETURN 

500 OM'SUBTRACT" :: RETURN 

510 Ol»'MULTIPLY BY' :: RETURN 

520 0»='DIVIDE SY" :: RETURN 

5:0 tm I54.2,IIIIIIIIIIIIIIIII,I54,2,I FORMULA GUESS 1,154,2, 1 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

540 DATA 157,l.CLEAR,156,2,IUIIIIItHllUHIIIIUIUH,l56,2, , l FORMULA 

UESS I\I56,2,"I I" 

550 DATA 156.2. 'I A Prograi created by I'. 156,2/1 'THE NUMBER MOTHER' I", 1S6.2, "I U 1 1 II 1 1 1 1 1 III 1 1 1 1 1 1 1 1 1 1 f l»" 
563 DATA 156,4,0,156.4.0,156,4,0,156,4,0,156,2 

570 DATA "After you give a 'starting nuaber", you Mil see 10 nuibers. Try to guess the' 

580 DATA 156.2. "ooeration and factor which account for the changes in the 10 nuibers.'. 156,4,0 

590 DATA 146,3, "Enter your starting nuaber: ",S 

600 DATA 83,4,36,190,199,17,83, 116,97,114,116.105,110,103,32,78,117 

610 DATA 109,98,101,114,58,32,184,219,183,83,182,0 

620 DATA 157.1, CLEAR. 156. 4, 83,36,0, 156,4, 0.140,4,73, 190,200,1, 49. 177, 200,2,49,48 ,0 
630 DATA 156,4,63,0,141,150,4,73,0,156,4,0 

640 DATA 146, 3, 'What's the operaton?(Enter l=Add;2=Subtract;3=Multiply; 4=Di vide) : ",'01" 
650 DAIA 156,4,0. 146. 3. 'What's the factor? (Enter a nuaber): •/Fit", 156,4,0 
660 DATA 132. 4,183,79,49, 190.79,182, 193, 1B3.70.65.36 
670 DATA 190,70,49,36,182,190,194,200,1,50.176,201,1,38,0 
680 DATA 156,2, "INCORRECT FORMULA. ', 134,4,201, 1,39,0 

690 DATA 156, 2, "CORRECT!", 146, 3, "Enter: 1-To do again; 2-To see the foraula; 3-To exit \"C" 
700 DAIA 157, 1, CLEAR. 155,4,67, 134,201, 1, IB, 179,201, 1 ,42. 179,201 , 1.45,0 

710 DATA 156,2, 'The foraula is:",156, 4,79, 36, 180,199,1, 32, 180,0. 156. 4, 70,65,36,0 .139.4.0.999 
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mmmtttsmttmmtmmm 
t t 

I THE BASIC NOTE PAD X 

t t 

t Dr. Roy T. Taaashiro t 

t t 

mmtmmmmmmttmtm 

Soaetiaes you need a word processor, but you do not have the necessary hardtiare and software handy. For exaaple, it is 
inconvenient to bring the expansion systea, disk drive(s), cartridge and disks to your office or to the library, where you 
could use the word processor to jot down soie iiportant information. Or, you lay just want to shod the neighbors or 
relatives what they can do with the TI-99/4a console which is gathering dust in the closet. The prograa listed below is a 
saall word processor which Mill operate on just the ainiaal Tl-systeaj console, cassette and lonitor or TV set. No todules 
are needed. The prograa Mill also operate Mith an expanded systea or with Extended BASIC. You aay also convert the files 
you create on BASIC NOTE PAO to files you can use on a full-fledgajword processor like TI-WRITER. 

After you type the prograa and SAVE it on your cassette or disk, RUN the prograa. You will see a list of options. 
When you press 1 (to write/edit), you Hill see a blank screen with the cursor at the upper left corner. You tay begin 
typing your aaterial. On this word processor, you have almost the full screen (23 coluans and 23 tons) on which to put your 
■aterial. You aay use the following keys for editing: 

[UP-ARR0H1 (FCTN-E) Moves the cursor up one line. 

[DOWN-ARROW] (FCTN-X) Roves the cursor down one line. 

[LEFT-ARROW] (FCTN-S) Roves the cursor left one character without deleting a character. 
[RISHT- ARROW] (FCTN-D) Roves the cursor right one character without deleting a character. 

(ENTER! Roves the cursor to the leftmost position of the next row. 

[DELI (FCTN-I) . Deletes a character on a line. 

[INS] (FCTN-2) Inserts a space on a line. (All characters aove over 1 space.) 

(ERASE! (FCTN-3) .Aborts write/edit selection. 

[PROC'D] (FCTN-A) Accepts the coapleted page. 

When you finish typing your screen, press [PROC'D] or (FCTN-6). There is a pause to prepare the page for saving to 
cassette or disk. Note that if you press [ERASE] (which is (FCTN-3) ) , your aaterial has not been prepared for saving or 
printing. You aay choose option 4 (PURGE) to reaove what you typed permanently, or press 1 (WRITE/EDIT) again to get back 
the page. 

I- 

When you get the proapt 'FILENAME to SAVE or press [ENTER] to cancel.', type CS1 if you are saving your aaterial on 
tape, or a disk filenaac such as DSM.HTHDTE if you are saving to a disk. You aay retrieve this page later by selecting33 
(LOAD) and typing CS1 for cassette or the disk filenaae. 

Selection 3 (SAVE TO DIS/VAR 80) allows you to convert your aaterial into the disk foraat readable by the TI-WRITER 
word processor or the EDITOR/ASSEHBER editor. When proapted, type a valid disk filenaae such as DSK1.NQTE-2. When you want 
to use the pages in TI-WRITEP, enter TI-HRITER' s editor and use the LF coaiand to load the page. If you wrote and saved 
several pages on the BASIC NOTE PAD, you can load all of thea by typing the line nuaber where you want the pages loaded as 
you type the filenaae. For exaaple, if you type LF [ENTER], then 24 DSK1.PASE-2 [ENTER] the file PASE-2 will be added to 
your editor after line 24. 

To PRINT your page on a printer, select & (PRINT) froa the aain selection screen. Type your printer access naae such 
as PIO or RS232.BA=M0. 

Since this word processor can only handle one screen at a tiae, each screen lust be saved individually. On cassette, 
this aeans recording the screens one after the next on the tape (do NOT rewind the tape even though the screen tells you 
so). On disk systeas, this aeans that every screen should have a different filenaae. 

(continued) 
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too ren tmmmitmm 

110 REN t BASIC NOTE PAD t 

120 ren mttmttmnm 

130 REN AUTHOR-ROY T AWASH IRQ 
, ED.D 

MO REN 1986 THE COMPUTER BR 
1D6E 

ISO DIN RK23) 
160 CALL CLEAR 

170 PRINT TAB (81 J 'BASIC NOTE 
PAD": :TAB(7)}"Roy T. Tatas 
hiro": : . 

180 CALL HCHAR12I, 10,45, 14) 
190 PRINT TAB(3)|'l - WRITE/ 
EDIT':TABI3)!'2 - SAVE* 
200 PRINT TAB(3)|*3 - LQAD'i 
TABI3)j'4 - PUR6E'lTAB(3)}'3 

- SAVE AS OIS/VAR 80* 
210 PRINT TABC31 |"4 - PRINT' ■ 
:TAB»3)}'7 - EXIT'! I 
220 INPUT "YOUR CHOICE(W): 

•:CH$ 

230 IF (CH«T)*<CHO'7')TH 
EN 160 

240 CALL CLEAR 
- 250 ON VAL (CHS) GOTO 300,940, 
1070,240,1190,1190,1280 

260 FOR R=l TO 23 
270 R$(R1»" 
280 NEXT R 
290 GOTO 160 
300 FOR R=l TO 23 
310 PRINT R»(R) 
320 NEXT R 

330 PRINT MPROC'DWonejIER 
ASEl=abort.'; 



340 FOR R=l TO 23 

350 FOR CM TO 28 

360 CALL GCHAR(R,C+2,6) 

370 CALL HCHAR(R,C*2,30) 

380 CALL KEY(5,Y,U) 

390 IF U=0 THEN 380 

400 IF Y>31 THEN 810 

410 IF Y>13 THEN 380 

420 ON Y GOTO 360,360,430,'? 

0,360,360,160,570,570,570,37 
0,570,570 

430 FOR RS=C TO 27 
440 CALL GCHAR<R,RS*3,S1 
430 CALL HCHAR(R,RS*2,6) 
460 NEXT RS 

470 CALL HCHAR(R,30,32) 
480 60T0 700 

490 FOR RS*28 TO C*2 STEP -I 
500 CALL 6CHAR<R,RS«1,62) 
510 CALL HCHAR(R,RS+2,S2) 
520 NEXT RS 

530 CALL HCHAR (R,C*3,G1 
540 CALL HCHAR (R.C+2, 32) 
550 CALL HCHAR(R,31,32,2) 
560 60TO 700 
370 CALL HCHAR(R,C*2,G) 
580 IF Y<>8 THEN 600 
590 C=C-1 

600 IF Y<>? THEN 620 
610 C=C+l 

620 IF YOIO THEN 640 
630 R=RU • 
640 IF YOU THEN 660 
650 R=R-I 

660 IF Y<>12 THEN 700 
670 C»29 



680 R=24 
690 GOTO 850 

700 IF (Y*13)+(C=29))-l THEN 
730 

710 R*R«I • 
720 C=I 

730 IF R<>24 THEN 750 
740 R=l 

750 IF C>=1 THEN 780 
760 R=R-I 
770 C=28 

730 IF R>=1 THEN 800 

790 R=23 

800 GOTO 360 

810 IF Y>126 THEN 380 

820 CALL HCHAR1R,C*2,Y) 

830 NEXT C 

840 NEXT R 

830 IF Y012 THEN 340 
860 FOR R-l TO 23 
870 R$(R)»" 
. 880 NEXT R 
890 FOR R=i TO 23 
900 FOR C=3 TO 30 
910 CALL GCHAR(R,C,G) 
920 RI(R)=R$(RHCHRUS) 
930 NEXT C 
940 NEXT R 
950 CALL CLEAR 

960 INPUT 'FILENAME to SAVE, 
or press [ENTER] to cancel 
970 IF F$3" THEN 160 
980 OPEN ll:F$, OUTPUT, INTERN 
AL, FIXED 192 
990 FOR R=l TO 23 



1000 IF (R/6=INT(R/6m(h- 
)<«-l THEN 1030 
1010 PRINT ll:R!(R), 
1020 GOTO 1040 
1030 PRINT IIsJtt(R) 
1040 NEXT R 
1050 CLOSE 11 
1060 GOTO 160 
1070 EF=0 

1080 INPUT "FILENAME to LOAI 
or press CENTER] to canci 
1.1 ':F$ 

1090 IF F$=" THEN 160 

1100 OPEN lltFf, INPUT ,INTER 

NAL, FIXED 192 

1110 FOR R=l TO 23 

U20 IF <R/6*INT(R/6))MR=22 

K«-I THEN 1130 

1130 INPUT tl:Rt(R), 

1140 60T0 1160 

1130 INPUT IliRNRI 

1160 NEIT R 

1170 CLOSE II 

11 BO GOTO 160 

1190 PRINT "DEVICE or FILE N 
ANE, or'i 'press [ENTER] to c 
ancil." 

1200 INPUT ":F$ 
1210 IF Ft=" THEN 160 
1220 OPEN ItiFt 
1230 FOR R=l TO 23 
1240 PRINT tl:Rt(R) 
1250 NEXT R 
1260 CLOSE II 
1270 60T0 160 
1280 END 



' THE TI-HRITER COMPANION. 

DR. BILL BROWING 
7541 JERSEY AVE. 
NORTH i BROOKLYN PARK.KN. 
55428 
$6.50 

For that price, you git 29. 8 1/2 by 1J pages, singled 
spaced, containing suggestions such as; How to uke the 
nost of both 40 coluan and 80 col win capabilites of the 
TI-KRITER ... Hon to turn a black and white TV into a 
green-screen unit ... Ho* to fiake your right-justified 
oaterial more professional looking ... How to work with 
two columns ... how to estisate word counts ... How to 
type on your printer directly froi the keyboard ... 
and nuch nore. 

Nritten by a professional writer with iiany years of 
writing experience, you are assured of dear, concise 
material. And if that is not enough folks, it comes 
with a MONEY BACK GUARANTEE. Sure can't beat the 
price. 

FROM THE SUNCOAST BEEPER, ST. PETERSBURG, FL. 



"XB WEE BOMBER " 
TOPICS - LA 99ERS 

100 CALL CLEAR:: CALL HCHAR (2 
3,2,30,30) :: CALL C0L0R(9,4,4 
)::CALL HCHAR (24, 1 , 96, 32) : : C 
ALL SPRITE (#1,43,2,35,256,0, 
-10) 

110 CALL KEY ( O , K » S ) : : CALL SO 
UND ( —1000, —3, 0, 200, 10) : : IF S 
=0 THEN 110::CALL POSITIONS 
1,X,Y) : : A=X: : CALL SPRITE (#2, 
46,2, X, Y) 

120 A= A+4 : : CALL LOCATE (#2, A, 
Y)::IF A>=21*8 THEN CALL SOU 
ND ( 1 00 » —7 , ) : : CALL POSITION ( 
#2, R» S) : : CALL HCHAR (23, S/C+l 
,32) : : A=0: : CALL DELSPRITE (#2 
)::GOTO 110 

130 CALL SOUND (-100, -3, 0, 200 
0- (4*A) , 10) » a GOTO 120 
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i ! 
! PRINTER SHORTCUTS i 

{ Dr. Roy T. Taaashlra ! 

: : 

QUESTION! 'It then i simple way to send commands to the printer when I a* using TI-tRITER?" 

ANSWER: Several previously published articles describe hot to send cosaands to the printer (for example, see Castleton, 
1985; Hoyt, 1984). Although they tork smoothly, each eethod has limitations: In Castliton^s eethod, you lose the capability 
of printing som characters, and in Hoyt's method, you eust run the separate BASIC proqri'a 'before you load TI-XRITER, and 
you cannot send net printer coeaasds in the eiddle of your docusent. The eethod described here uses the Editor in 
TI-HfllTER, so you can include the printer coeeands as you are preparing your docusent. 

You oill need to knot your printer's coeeand codes which you wish to use. This is found in the appendix of your 
printer eanual. The fallowing are codes used in Epson KX-BO, TI-99/4 and other cotton dot eatrix printirsi (Check your 
printer manual for these and other codes.) 



(11 To Print j (2)Code: 


jj] press these keys?, 


(4 (Screen Shots: 


Enlarged On 


14 


ECTRL-Ul N 




Condensed On 


13 


CCTRL-U1 


t 


Condensed Off 


IS 


CCTRL-U1 R 


1 


Enlarged Off 


20 


ICTRL-Ul T 


1 


Emphasized On 


27} 69 


ICTRL-Ul tFCTM-ftl CCTRl-Ul E 


le 


Emphasized Off 


27J70 


CCTRL-U1 tFCTK-Rl ECTRL-U3 F 


\f 


Double Strike On 


27|71 


CCTRLHJ1 [FCTH-Rl CCTRL-U1 8 


1j8 


Double Strike Off 


2757? 


ICIRL-B1 tfCIM-M CCTRlj-lJ] H 


III 



Select the coeeand you want from coluta (1). Type the characters in Column (3). [CTRL -HI Mans to press the CCTRU 
key and II at the sue time. This puts you in the special character code which allots you to type ASCII codes 0-31. The 
cursor changes from a flashing rectangle to a flashing underline. The characters you type next till appear as special 
syebols indicate on page 144 of the. Tl-MRITER eanual. Press CCTRl-Ul again to get back the regular cursor. After you type 
column (3), you till see the characters in column (4) on your screen. 



Here is an example. Type the foliating in T WRITER'S Editor: 



the screen, the text till appear as follows: 



ICTRl-Ul [FCTK-fl] ICTRL-Ul E Jack be nimble, 

ICTRL-Ul IFCTH-R] ICTRL-Ul F Jack be guick, 

CCTRL-U3 CCTRL-U1 Jack jump over the 

ICTRL-Ul RN ICTRL-Ul candlestick. ICTRL-Ul T ICTRL-Ul 



IE Jack be nimble, 
V Jack be guick, 
'P Jack jump over the 
lVcandlestick.il 



Then print the file, using the Pf command. You will see the following: 

Jack b« nimble, < EMPHASIZED TYPE ON. 

Jack be quick, < EMPHASIZED TYPE OFF. 

Jack jump over the < CONDENSED TYPE ON. 

c^ncil gejq^x ck „ (-ENLARGED TYPE. 



REFERENCES: Castleton, R., 'Taking control or TI-Nriter', NICROoendiue. 1983, February, pp. 12-13 

Hoyt, H., 'Printer setup program*, The Computer Bridge. 1986, Vol. 3, Mo. 4 (April), 1-4 
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A Swift Comauni cation Link with Your "Other" Coaputer 
Dr. Roy T. Taaashiro 



If, like ae, you work with various CGaputers besides the TI-99/4a, you often wish there was a speedy way to 
transfer data between the computers, ft aodea is not always adequate, because it is slow— 300 baud or 1200 baud 
seeas to take forever. Also, you do not always have two telephones and separate lines to connect with the 
coaputers. The solution to these probleas is to connect the two coaputers directly. By linking your coaputers 
together via a cable, you aay transfer inforaation as fast as 9600 baud. That is about 32 tiaes faster than with 
a 300 baud aodea! 



The direct connect cable is possible with any coaputer which has a regular serial coaaunications port. 
(There are other possible aethods of linking the coaputers, though this is probably the siaplest.) I connected ay 
TI-99/4a with an Apple He equipped with a Super Serial Card (This description also applies to Apple II and 
Apple 11+ coaputers.). The TI-99/4a requires an RS-232 card. 

The cable that connected the Apple and TI used standard EIA RS232C 25-pin aale connectors on both ends. The 
pin wirings were as follows: 



RS232 Suaer.Seri.iL.Card 

! 1 

2 u 2 

3 3 

6 20 

7 7 

20 6 



The switches on the Super Serial Card should be set according to the software you are using for data 
transfer. For ay purposes, I set the following: 

SWM.SK1-2 SW1-3 SW1-4 SKl-5_SWi-6_SWl-7 
OFF OFF OFF ON ON ON ON 



SM2-1 SH2-2 SH2-3 SH2-4 SM2-5 SH2-6 SM2-7 
ON ON ON OFF OFF OFF OFF 



These settings result in the following configuration: Baud Rate=9600, Data Foraat=8 data bits/one stop 
bit/odd parity. Use the Super Serial Card aanual if you want a different configuration. 

Transaitting data between the two coaputers can be done on the TI via BASIC, Extended-BASIC, TI-Hriter, 
Editor/Asseabler, or any software which allows you to SAVE and LOAD to disk or PRINT to a printer. On the Apple, 
the software aay be in BASIC, or coaaunications software which is compatible with the Super Serial Card. For 
exaaple, to send a TI-Nriter file, load your file into the editor, select SAVE (SF) or PRINT (PF), and type 
RS232.BA=9600.DA=8.CR if you set the switches as noted above. To receive inforaation froa Apple, select LOAD 
file !LF), and use RS232.BA=9600.DA=8 as the filenaae. 

Although only the connection between TI-99/4a and Apple He is discussed here, these principles can be 
applied to any two coaputers which have a serial coaaunications port to aake swift, convienient and accurate 
transfer of inforaation possible. 




D» PING! 




3k > 
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********************************** 

* THE MESSAGE ENCODER * 

* Dr. Roy T. Tamashiro * 
********************************** 



Here is a paragraph describing a well-known historical figure. Notice that there are extra letters throughout the 
paragraph. If you find all the extra letters, they Mill spell the naie of the eystery person: 



This famous scientistG was born near Diamoend, Missouri in 
1864o. He received his degrrees in agriculture fgrom Iowa 
State Univeersity. He developed mWany new soil conservaation 
methods and wasys to improve crop prohduction. He is best 
i known for his work wnith peanuts. He devegloped over 300 
productts from peanuts, inclouding soap, a milk snubstitute, 
face powderC and printer's ink. aln 1939, he was awarrded 
the Theodore Roosevvelt Medal for outsteanding contributionsr 
in science. A national monument in his name was established 
in 1931 on the Missouri farm where he was born. 



In this next paragraph the extra letters spell a eessage. See if you can figure out this eessage by another faious 
Aierican: 



Few people toLday are as tialented in ats many diffetrent 
areas als was the autheor of this msessage. He its known for 
rhis invent loons like the hekating stove eand he provesd that 
lightfning is elecatrici ty. He lwas a signer olf the 
Declarbation of Indiependence asg well as theo U.S. 
Const! tuat ion. He pubkllshed the SsAYINGS OF POOR RICHARD, 
where the hidden message first appeared. Of course, this man 
is Benjamin Franklin. 



Puzzles such as these are valuable in strengthening a person's reading abilities. To solve the puzzle, one lust read 
for leaning, know the correct spelling of the words used in the passage, and use context clues to find the letters which 
spell the eessage one is seekinq. 

The Tl-99 4/A coiputer equipped with TI-Kriter word processor and the Extended BASIC prograe listed below will allow 
you to build a puzzle such at those above. Here's how it is done: Start by loading TI-Mriter's Editor. Press T for Tabs 
and use the right arron until you are at the 70 coluin earker. Press R for Right Margin, and press [Enter!. 

Now, type the paragraph in which you wish to eibed the coded eessage. Check to see that everything is spelled 
correctly. Uhen you finish typing the paragraph, press Coieand/Escape (FCTN-91 and type PF for PrintFile. Type a valid 
disk naee, such as DSK1.MY-ST0RY and press [Enter!. (Mote that PF (PrintFile) is used instead of SF (SaveFile) so the 
foreat codes are not recorded on the disk file.) 

Type the Extended BASIC prograi 'Message Encoder* listed below, and save it on your disk. RUN the prograe. When you 
get the first proept, "TYPE FILENAME:', enter the naee of the file you used to save your paragraph. (For 
exaeple: DSK1. NY-STORY) Then type the eessage to be eibedded as directed. After the prograe does its work, you lay choose 
to print the paragraph with the eibedded codes, or save it disk for later work with your word processor. 

(The solutions to passages are spelled backwards here: PASSAGE 1: revraC notgnihsaM eqroefi PASSA6E 2: skao gib lief 
sekorts elttiL) 
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ioo ! ttmmtmtmm 

110 ! I NESSA5E ENCODER t 
120 ! ttttttttttitttttttt 
130 ! AUTHOR: ROY TAHASHIRO 
140 iSEPTEHBER 1986 
ISO Old LI (253) 
160 60SUB 420 II DISPLAY ATI 
3,31 1 "This program assuaes t 
hat": "a passage has been ere 
atedVusing TI-Mriter with 
the' 

170 DISPLAY AT(&,l):'right ■ 

argln set at lessVthan 70. 
■ 

180 DISPLAY AT(9,1)!'TYPE FI 

LENAHE: DSK1." I! ACCEPT AT( 

9,19)SlZE(-10)iF$ 

190 OISPLAY AT(U,l)i'ENTER 

KESSASE: * ACCEPT AT(12,1) 



200 DISPLAY AT(14,t):'ARE TH 
E ENTRIES CORRECT?': MY/N):' 
ti ACCEPT AT(13,7)VALI0ATE( 
'YN')SIZE(l):OKI u IF 0K«<> 
•Y' THEN 160 

210 DISPLAY AT(24,l)i'Norkin 
g. Please wait..." :: OPEN I 
li'DSKUFI 

220 N*I II I»W it IF EOF (! 
)*1 THEN 240 

230 LINPUT IllUdlll 60T0 2 
20 

240 CLOSE II 

250 FOR 1*1 TO N ti FOR W 
TO LEN(Lt(I)):i IF SESIILNI 
),J,l)OCHRI(32)THEN M>1 
260 NEXT 1 ti NEXT I 
270 FOR 1*1 TO LEN(Rf)ii AAt 
■SEBUM,!,!)!! IF AAIOCHRJ 
(32) THEN CMUAAI 
280 NEXT I 



290 FA*INT(C/LEN(Ct)):: IF L 
EN(C«)>*C THEN DISPLAY AT (16 
,l):'The passage is too shor 
t.'i'Retype the passage.' is 
ENO 

300 IF Ct»" THEN 340 
310 IF FA>LEN(E»)THEN I*FA-L 
EN(Et)l! S»S+1 is IF S>N THE 
N 340 

320 E«=SE6« (L«(S),IH,LEN(L$ 

(S>)-I)ll Lt(S)*SEG»(L.(S),l 

,I)iS£S«(C«,l,!)tEJ 

330 C$=SE6$(C«,2,LEN(C*)-l)i 

1 I=FA+I I! 60T0 300 

340 60SUB 420 I! DISPLAY ATI 
3,1)! 'PRESS! a i a l TO PRINT'!' 

2 TO SAVE ON DISK'i'3 TO RES 
TART'i'4 TO END' 

350 DISPLAY ATdO.lli'YOUR C 
HOICE (1-4)!' it ACCEPT ATI1 



0,I9)SIZE(l)VALIDATE('l234') 

:C» :: C*VAL(CI) 

360 ON C SOTO 370,380,400,41 



370 DISPLAY AT(12,1):'TYPE D 

EVICENANEi " II ACCEPT AT (13, 

1):F$ i! 60T0 390 

380 DISPLAY AT(12,1):'TYPE F 

RENAME! NR." li ACCEPT AT 

(12,19)SIZE(-10)iF, li F$»'0 

SK'iFI 

390 OPEN lllft i! FOR 1*1 TO 
N I! PRINT IllUdli! NEXT 
I !! CLOSE II ! I 60T0 340 
400 RUN 

410 CALL CLEAR II END 
420 CALL CLEAR || DISPLAY AT 
(l,7)i'NESSA6E ENCODER" || C 
ALL HCHAR(2,9,45,13):: RETUR 
N 



THE COMPUTER 
P.O.BOX 63156 
ST. LOUIS MO 



BRIDGE 

TOWER GROVE ST A . 
63163 
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**ttt**t****x*******k************* %>-3 

* QUICK LABEL * 

* Dr. Roy T. Tamashiro * 
********************************** 

Word processors are wonderful for preparing letters but they are 
usually not set up do the envelopes or labels for mailing. The program 
listed below (QUICK LABEL), which runs on TI-BASIC or TI-Extended BASIC, 
will prepare an envelope or address label. 

Type in the program below and save i t on cassette or disk. When you 
RUN the program, you are asked for the PRINTER NAME. Normally this is PIO 
or RS232(with extensions). Then select "Normal- or "Elite" characters. 
Select normal for most cases. If you select "elite" you must know the 
"printer codes" to enter at the next prompt. Press CEnter3 if there are no 
printer codes needed. Then select envelope size: Business <9.5 X 4 inches), 
Small (6.5 X 3.5 inches), or none. 

You are then prompted to type a label of up to six lines. Press 
CEnter3 after each line. You may start over at any time by pressing ERASE 
(FCTN-3) . After this, you may correct or print the label. Select the 
location from the choices given. Place the envelope in the printer as far 
to the left as possible, with the top edge o-f the envelope just above the 
print head. The program automatically calculates where to print according 
to the envelope size and character type you chose. 



ioo REHtttummtm 

110 REM QUICK LABEL t 

120 REHtttummtm 

130 REN AUTH0R-R0Y TARASHIRO 
,ED.D 

140 REN THE COMPUTER BRIDGE, 

OCT 1986 

ISO 60SUB 1030 

140 PRINT 'Type PRINTER NANE 
• 

» 

170 INPUT 'such .as PIO or RS 

232.BA=9600':P$ 

180 PRINT :-Characater size: 

•:■ Moral, 2=Elite':'Y0UR 

CHOICE:' 

190 CALL KEY(5,K,S) 

200 IF <S=0)*(K<4?)*(K>50)TH 

EN 190 

210 PRINT CHRS(K) 

220 CLIN=40t(K-47) 

230 PRINT : 'Enter PRINTER CO 

DES, or ': -press [Enter] if 

none." 

240 INPUT -(CTRL Keys appear 
as spaces) -:C0DEt 
250 IF C00EI»-- THEN 300 
240 FOR 1=1 TO LEN (CODED 
270 C=ASC(SEGt(COOE«,I,ll) 
280 C2l=C2«CHRt(CtABS(C<12? 
IHC-128I»ABS(C>128>) 
290 NEIT I 
300 OPEN IliPl 
310 PRINT ll:C2» 



320 PRINT : 'Envelope Size:': 
1 1 --Business, 2=S«11, 3=Non 
•VY0UR CHOICE:' 
330 60SUB 1000 

340 IF (K(49)*(K)5t)THEN 330 

350 IF KO50 THEN 370 

340 E».25t (CLIN/2) 

370 60SUB 1030 

380 PRINT I : 1 I I | i I i 

:::::::: 

390 CALL HCHAR(4,3,45,28) 

400 CALL HCHAR(5,1,32,192) 

410 CALL HCHARdl, 3,45,28) 

420 W»-12Type your label ab 

ove." 

430 60SUB 940 

440 M»'13CEnter]=next, CERA 

SEWbort.- 

450 60SUB 940 

440 FOR R=5 TO 10 

47Q FOR C=3 TO 30 

480 CALL 6CHAR(R,C,G) 

490 CALL HCHAR(R,C,30) 

500 CALL KEY(5,Y,U) 

510 IF (U=0)t(Y>124)THEN 500 

520 IF Y>31 THEN 420 

530 CALL HCHAR(R,C,6) 

540 IF Y=7 THEN 390 

550 IF Y=13 THEN 440 

540 IF YOB THEN 480 

570 CALL HCHAR(R,C,32) 

580 MM 

590 IF C>2 THEN 480 
400 C=3 



410 60T0 480 

420 CALL HCHAR(R.C.Y) 

430 NEXT C 

640 R$(R-4)«" 

450 FOR B=3 TO C-l 

640 CALL 6CHAR(R,B,6) 

470 R»<R-4)=R»(R-4IICHR*(S) 

480 NEXT B 

490 NEXT R 

700 RESTORE 1120 

710 N»7 

720 6QSUB 1040 

730 IF (K(49I+(K>54)THEN 700 

740 L=K-48 

750 SPIN=0 

740 IF L(4 THEN 780 

770 SPIN=CLIN/2-14-E 

780 ON L 60T0 390,910,790,79 

0,790 

790 N=2 

800 60SUB 1040 

810 IF K=88 THEN 910 

820 IF K<>13 THEN 790 

830 ON L-2 GOTO 870,870,840 

340 FOR 1*1 TO 8 

850 PRINT tl: 

840 NEXT I 

870 FOR 1=1 TO 4 

880 PRINT tl:TAB(SPIN);R$(I) 

890 NEXT I 

900 GOTO 700 

910 CALL CLEAR 

920 CLOSE II 



930 END 

940 R=VAL(SEG«<M,l,2)) 

950 CALL HCHARIR, 1,32,224) 

960 FOR N=3 TO LEN(Kt) 

970 CALL HCHAR(R,N,ASC(SESt< 

IU,N,1))> 

980 NEXT N 

990 RETURN 

1000 CALL KEY(3,K,S) 

1010 IF S=0 THEN 1000 

1020 RETURN 

1030 CALL CLEAR 

1040 PRINT TAB(9); -QUICK LAB 

EL":TAB(9) J* * : TAB 

(4); -Roy T. Taeashiro': : : 

1050 RETURN 
1040 FOR K=l TO N 
1070 READ Nt 
1080 G0SU8 940 
1090 NEXT K 
1100 G0SUB 1000 
1110 RETURN 

1120 DATA -12Nhat No«?','13 
IlIFix label, C23Exit, or',' 
MPrint the label at:', "15 C 
31 Top Lift Corner' 
1130 DATA -14 [4] Top Center 
-,"17 C5I Envelope center.-, 
■18Y0UR CHOICE !!-5): .'1140 

DATA '12Insert envelope or 
label ,Vl3Press [Enter], or 

UJ'Exit." 
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ttttttttttttttttttttt*t**t*tt***ttttttttttttt 

* * 

* WHIRLS AND FLIPS: UPSIDE DOWN TYPING * 

* Dr. Roy T. Tamashiro * 

* * 
********************************************* 



TERRY: "Nan can I get text to 
be upside daxn on ey 
coiputer eonitor?" 

ANDY: 'Do a hand stand.' 

TERRY: 'Is there another Hay?* 

ANDY: "Sure, Turn the eonitor 
over.' 

TERRY: 'Yes, but that Mould 
look foolish!' 

It is not clear why one 
Mould Mant things to appear 
upside down on the screen, 
except for fun. But 'fun' is a 
good enough reason. So here is 
a routine that will all on you 
to turn the tut on the screen 
upside down (and other dazzling 
tricks) Mithout doing hand 
stands or turning over the 
eonitor. Type the prograe 
below in Extended BASIC and 
SAVE it on cassette tape or 
disk, then RUN the prograe. 
Note that the 32-K Expansion 

no 
rat 



200 0«=CHRt(34):: CALL CLEAR 
PRINT Q»;'FLlP'jQ«}" rou 
tine is loaded. *:'To use, ty 
pe:':' CALL LINM'jOJj'FLlP' 
;Q$j')" 

Now, whenever you use CALL 
LINKCFLIP"), the characters on 
the screen will turn upside 
dawn. Try the following 
prograe to see how this works: 

100 CALL CLEAR 
110 PRINT 'FLIP DEMO": : : 
120 FOR 1=33 TO 126 II PRINT 
CHRtU); NEXT I PRINT 
130 CALL LINKCFLIP') 
HO INPUT 'PRESS CENTERl'iR* 
::60T0 100 



Press IFCTN1-4 (Clear) to 
exit the prograe. Here is a 
routine that allows you to 

Srint a whole screenful upside 
own before it is turned right- 
Heaory is required, and no side up. Type in. SAVE (to 
other assiibly language prograe cassette or disk), then RUN the 
can be used at the saae tiae. prograe. 



too !tmtm 

110 !t FLIP t 
120 UUiltU 
130 M986.R.TAHASHIR0 
HO !I-BASIC,NEHORY EXPANSIQ 
N REQUIRED 
130 !RUN THIS FIRST. 
UO CALL I KIT it CALL LOADU 
6376,70,74,73.80,32,32,36.24 
4):: CALL LOAfi (8194,63,248) 
170 CALL LOAD(9460,2 ( 0,4,0,2 
,5,37,72,2,2,0,2,2,4,0,4,2,1 
40,36,4 32.32:44) 
180 CALL LOAD (9484 ,192, 96, 40 
,36,6,3.213,63.6,193,6.5,213 
,65,5,192,2,128,4,240,21,5,6 

1*90 CALL L0A0(95O8,22,239,2, 



too immmmtmmt 

110 !t UPSIDE-DONN DEHO t 

120 itumttmtmtmi 

130 DATA I, 'UPSIDE DOWN' 

HO DATA 2,' 1 

150 DATA 3, 'by Roy Taaashiro 

160 DATA 5,'In this routine, 
the text' 

170 DATA 6, 'first appears up 
side down. 

180 DATA 7,'The letters are 
bottoas-up* 

190 DATA 8, 'and the top line 
is on the 1 
200 DATA 9,'bottoa of the sc 
reen." 

210 OATA 15, 'After a while e 
verything' 

220 DATA 16, 'gets corrected. 



230 DATA IS, "It waits for yo 
u to press" 

240 DATA 19, 'the <ENT£R> key 

250 DATA 99 

260 CALL UPSIDE 

30000 END 

31500 SUB UPSIDE 

31510 DIN fci(24)i! FOR 1=1 T 

24 :: W$(I)=" :: NEXT I 

31520 READ R :: IF R<25 THEN 

READ WMRlii 60T0 31320 
31530 CALL LINK ("FLIP") : : CA 
LL CLEAR :: FOR 1=1 TO 24 
31540 OISPLAY AT(24-I,14-LEN 
(WS(!))/2):Nt(I) 
31550 NEXT I :: CALL DELAY 
31560 FOR 1=1 TO 24 II CALL 
HCHARII, 1.32, 32)11 OISPLAY A 
T(I,14-LEN(«(I))/2):«$(I):i 

NEXT I i! CALL OELAY || CAL 
L LINK('FLIP') 
31570 DISPLAY AT(24,1):'PRES 
S <ENTER>.' 1 1 CALL KEY(0,K, 
S)n IF KOI3 THEN 315703158 
CALL CLEAR li SUBEND 
31590 SUB DELAY II FOR 0=1 T 
1000 ll NEXT li SUBEND 

You can substitute your own 
DATA stateeents for creating 

?our own screens by using the 
oraati DATA row, text (See the 
exasples.) The text Bay not be 
aore than 28 characters long. 
To indicate the end of the 
screen, use DATA 99 (or any 
nuaber greather than 24). 
Follow this by a CALL UPSIDE, 
the subprograa which handles 
the screen display. If you 
want another page, continue 
with aore DATA stateaents, and 
and end with DATA 99 and CALL 
UPSIDE again. 

Another application of the 
FLIP routine is to 'twirl' the 
letters very quickly to get the 
effect of a 'whirligig*. Try 
the following prograe: 



too 'iimimtm 

110 !t WHIRLIGIG t 

120 immtmm 

130 DATA I,"NHIRLI816' 

140 DATA 2,' ' 

150 DATA 3, 'by Roy Taaashiro 

160 DATA 5,'In this routine 
the text' 

170 DATA 6, 'twirls upside-do 
wn and back' 

180 DATA 7, 'up again as it a 
ppears on" 

190 DATA 8,"the screen." 
200 DATA 10, "The text on eac 
h row is' 

210 DATA 11, "centered." 

220 DATA 15,"It waits for yo 

230 DATA 16, 'press < ENTER) b 
efore erasing' 
240 OATA 17,'the screen." 
250 DATA 99 
260 CALL WHIRL 
30000 END 
31000 SUB WHIRL 
31010 DIN Nl(24)ii FOR I>1 T 
24 ll III(I)=" ll NEXT I 
31020 READ R II IF R<25 THEN 
READ Ht(R)ii 80TO 31020 
31030 CALL CLEAR n FOR 1=1 
TO 24 II IF N«(I)=" THEN 31 
050 

31040 DISPLAY AT(I,H-LEN(W» 
(I))/2)iW$(I)li FOR L=l TO 1 
li CALL LINKCFLIP'Jn NEX 
T L 

31050 NEXT I 

31060 DISPLAY AT(24,l)i'PRES 
S (ENTER). " ll CALL KEY(0,K, 
Sin IF K<>13 THEN 31060 
31070 CALL CLEAR ll SUBEND 

En joy these upside - do« 
character routines, and inven 
soae new ones too. But, b 
careful not to flip too euc 
over thea. 
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********************************** 

* ELECTRONIC DATEBOOK * 

* Dr. Roy T. Tamashiro * 
ttttttttt*ttttttttttttttttt*tt*ttt 



Kith the New Year upon 
us, it is tiie for reflations 
on the past year, and 
resolutions and planning for 
1987. The proqraa below, 
ELECTRONIC DATEBOOK, lay be 
helpful in keeping track of 
appointments, birthdates, 
anniversaries and other 
iiportant dates. It is a 
ecnthly calendar which allows 
you to enter notes or aeaos 
for any day of the year. 

To ust ELECTRONIC 
DATEBOOK, type the proqraa 
listed below i; using 
Extended BASIC and save the 
proqraa on Your disk or 
cassette, men you RUN the 
proqraa you dill see the Ha in 
Menu, which asks uhether you 
»ant to (1) View the Calendar, 

(2) Load the Date File, 

(3) Savt the Date File, or 
(4IEiit. Choose option 1. 
At the next proapt, select 
the aonth, you wish to view. 
For exaaple, enter 1 for 
January. 

You aill set the 
calendar for tht aonth you 
selected. You aay then 
choose to (1) Select a date, 
(2)Print or <3)Return to the 
aain eenu. If you choose 
(1) 'Select a data', you are 
asked which date of the 
aonth. ah en you do so, you 
are asked to enter your ieao 
for that date. You hava four 
screen lines to do so. 

then tha calendar for 
the aonth is redisplayed each 
date for ahich you nave an 
aeeo entry is starred(t). If 
you choose option 1 aqtin 
('Select a Data'), you aill 
see the eeao displayed. 

Once you have several 
aeeos in a given aonth. you 
aay aant to qet a printout. 
To do so choose option 2 froe 
the aenu under the calendar, 
then enter your printer 
device naae, such as 'PIO' or 



•RS232.BA=600', etc. 

Hhen you are finished 
entering intonation for the 
aonth, choose option 3 'Go to 
the aain aenu . Froa the 
aain aenu, choose option 3 
■Save Date File*. Pick 
DSK1 (disk), DSK2, or CS1 
(cassette) for the device 
you are usinq. If you are 
using a disk, be sure you 
have at least 183 sectors 
free on your disk. Use a 
blank cassette if you choose 
CS1. The entire year's teaos 
aill be save on the disk or 
cassette file. Be patient as 
this process takes several 
ainutes. 

Tht next ti at you wish 
to consult the ELECTRONIC 
DATEBOOK, run tht proqraa and 
choose option 2 Load Date 
File" froa tht aain aenu. 
All of tht dates for which 
you aadt entries aill nan o« 
ready for you to vien, to 
revist or to print out. 

too immmttm 

U* II ELECTRONIC t 
120 !t DATEBOOK t 
130 !t - 1987 - t 

140 !t mutt turn 

150 lAUTHCRiROY TAN ASH IRQ 

160 'USES X-BASIC 

170 DIN Dt<11.31,4) 

180 ltS**3Jan3UFeb2Bl"ar314A 

pr3OMay312Jun304Jul317Auq31 

3Sep3050ct311Nov303Dec31' 

190 SOSUB 300 :s Mlt='Author 

:Roy Taaashiro' :: 8=3 :: GO 

SUB 490 

200 DISPLAY AT(8,7):*1 To Vi 
ew Calendar':TAB(7):'2 Lo 
ad Date Filt':TA8(7)s'3 S 
avt Oatt Filt':TAB(7);'4 
Exit' 

210 DISPLAY AT<t9.5):*Y0UR C 
HOICE (1-4):' ACCEPT AT(1 
9j24)SIZE(l)VALI0ATE<'l234') 

220 60SUB 300 ll ON VAL(Ct)6 

0T0 230.400,440,480 

230 DISPLAY AT (4,1): 'Enter N 



onth (1-12):' :: ACCEPT AT (4 
,21)SIZE(2)VAL1DATE(DIGIT):N 
:: MM :: IF H<0 OR N>11 
THEN 230 

240 60SUB 500 :: HK-SE6t(I1« 
,Ht6+2,3):: DISPLAY AT(4,10) 
:«»:' 1987' :: DISPLAY ATI5 
,l):'Sun Hon Tue Ned Thu Fri 
Sat' 

230 N*0 :: S=VAL(SESt(Nt.l1t6 
♦1,1))!! ««»" || FOR K=S TO 
7 :: MM :: IF Dt(N.N,0)< 
>" THEN Nt=Nt*T ELSE aW 
tt« ' 

260 it=*tlSTRt(N)l' ' !! NE 
IT K l! DISPLAY AT(6,(S-1)»4 
♦l):«t 

270 Kl=" || L=VAL(SESS<«*,H 
«6+5,2)):: FOR K=N*1 TO L :: 
N=N+l :i IF DKN.K.OIO" T 
HEN tUm'V ELSE Nt=W '• 
280 IF N<10 THEN M>VttSTRt< 
N)it' ' aSE Nt'NUSTRttN)*' 

■ 

290 NEXT K II DISPLAY AT (7,1 
):Nt II CALL HCHAR(12.1,45,3 
2):i DISPLAY AT(13,l)i't ind 
icates dates noted.' 
300 DISPLAY AT(13,3):'l to S 
elect a Date':TAB(3);'2 to P 
rinf:TAB(3)}'3 to qo to ten 
u':TAB(9)j'Your Choice (1-3) 
i" 

310 ACCEPT AT(18,28)SIZE(1)V 
ALIDATEC123'):Ct !! SOSUB 5 
10 !l ON VAL(Ct)80T0 320,330 
,190 

320 DISPLAY AT(13,1) : 'Enter 
Date:(l-';STR«(L)}')' :: ACC 
EPT AT(13.19)SIZE(2)VALIDATE 
(0I6IT) :0D :: IF D0<1 OR 0D> 
L THEN 320 

330 SOSUB 310 II OISPLAY AT( 
13,l):'Type aeao for -;«!♦; D 
Dj'beloa. 1 || FOR 1=0 TO 3 ! 
: DISPLAY AT(I*18,1) :0t(N.DD 
,1)!: NEXT I 

340 CALL VCHARU8.2.62,4):: 

FOR 1=0 TO 3 :: ACCEPT AT(I* 

18,l)SIZE(-28):Dt(N,DD,I)!: 

NEXT I :: 60T0 240 

330 OISPLAY AT(13.1):'Enter 

Oevice Naae:':'Pld' :: ACCEP 

T AT(16,1)SIZE(-28I:P« 

360 OPEN IliPt :: PRINT ll:T 



AB(30)i«U;' 1987' 

370 FOR 1=1 TO L :: IF DUN. 

1,0)0" THEN PRINT tl:Nlt;i 

j ■ 1987" ELSE 390 

i80 FOR J=0 TO 4 !! PRINT II 

:Dt(N.I,J):: NEXT J :: PRINT 

ll!' 1 

390 NEXT I !! CLOSE #1 :: SO 
TO 240 

400 Hit-load Date File" :: 
R=3 !! SOSUB 490 :: SOSUB 32 
I! IF Ct**4' THEN 190 
410 OPEN It: Ft, INPUT , INTERN 
AL. FIXED 128 

420 FOR 1=0 TO 11 it FOR J=l 
TO VAL(SESI<H!,It6+3,2)):: 
FOR K=0 TO 2 i> INPUT ll:Dt( 
I.J.K),:: NEXT K ll INPUT *1 
! fit (1,1,3) I I NEXT 1 
430 NEXT I i: aOSE 11 :: 60 
TO 190 

440 Hlt>'Savt Date File' :: 
R=3 ll GOSUB 490 :: SOSUB 32 
:: IF Ct»'4* THEN 190 
430 OPEN 11 :Ft, OUTPUT, INTERN 
fit, FIXED 128 

460 FOR 1=0 TO 11 ii FOR J=l 

TO VAL(SE6t(ttt,It&+3,2)):: 
FOR K=0 TO 2 :: PRINT IliOM 
I.J.K).:: NEXT K :: PRINT tl 
:DtIl,J L 3)!! NEXT J 
470 NEXT I :i ttOSE tl :: 60 
TO 190 

480 CALL CLEAR It ENO 
490 DISPLAY AT(R, 14-LEN(Hlt) 
/2):«t :: RETURN 
300 CALL CLEAR :: ilt='ELECT 
RONIC DATEBOOK: 1987' :: R=l 
:: SOSUB 490 :: CALL HCHAR( 
2.4,43,25):: RETURN 
510 CALL HCHAR(15,1,32,288): 
: RETURN 

520 DISPLAY AT(6,3):'l for 
SKr:TAB(3):'2 DSK2':TA8 
(3) ; '3 CSr:TA8(3)j*4 

None of the above' 
330 DISPLAY AT(15,5):'Your C 
hoice: (1-4)' :: ACCEPT AT<1 
3.23)S1ZE(1)VALIDATEC1234') 
:fct 

540 IF Ct='3' THEN Ft='CSl' 
ELSE Ft='DSK'tcCti'.DATEFILE" 
550 RETURN 



»•« MEETINI3 D^TI 
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********************************************* 

* TWO-WAY COMMUNICATIONS FOR X-BASIC * 

* * 

* Dr. Roy T. Tamashiro * 

* * 
********************************************* 



Have you ever tried to use 
BASIC or Extended BASIC to 
coMunicate Mith another 
com puter? If 50, you soon 
discover that you can send 
and receive data (using 
PRINT I and INPUT t or 
L INPUT I instructions), but 
there are no instructions 
which allow simultaneous 
two-May conunications. This 
'chat* iode is not available 
in the ordinary BflSICs 
because you tay nor interrupt 
the PRINT I and (L) INPUT I 
instructions which are 
waiting for carriage returns. 
This is like having a 
walkie-talkie conversation in 
which each person iust say 
"OVER" and release a switch 
before the other person can 
talk. 

The "COMMUNICATIONS 
TERMINAL" prograi (See 
listing below and footnote) 
allows simultaneous two-way 
interaction. To use the 
prograi, you iust have 
Extended BASIC, 32-K Keaorv 
Expansion, and an RS-232 
Interface connected to a 
todea and phone line or 
direct wire to another 
coiputer. Type the prograi 
and SAVE it to your disk or 
cassette. 

When you RUN the prograi, 
the screen clears, and 
whatever you type appears on 
your screen and is sent to 
the reiote coiputer at 300 
Baud. Whatever the reiote 
coiputer sends to your 
coiputer appears on your 
screen also. Nhen you or the 
reiote coiputer sends a 
carriage return i.e. [Enter], 
a new line begins. The 
[left-arrow] key (CHR$(8>) 
acts as a Backspace on the 
screen. 



To exit the routine, press 
[FCTN-9L The reiote 
coiputer can also allow you 
to exit the teninal send a 
[Control -01 or CHRK15). To 
return to the teninal. type 
CALL LINK ('START" J and press 
[Enter]. 

100 ittmttmtmtm 

110 it CONNUNICATIONS t 
120 ft TERMINAL t 

130 .'mttmtmmm 

140 ! AUTHOR: ROY TAMASHIRO 
150 ! FEBRUARY 1987, X-BASIC, 
MEMORY EXPANSION fc RS232 
160 CALL INIT :: CALL LOAD (8 
196,63,248):: CALL LOAD ( 1637 
6,83,84,65,82,84,32,48,0) 
170 CALL L0ADU2288, 2,224,50 

01, J, 11U, £, li.0, J, V, lif L jU, I, 

0) 

180 CALL L0AD(12312,15,128.2 
,1,50,96,2,2.0,16,4,32.32,36 
.2,6,15,137,200,6,131,86,4,3 
2) 

190 CALL L0A0(12336,49, 118,0 
,8,4,192,2,12,19,64,31,21,22 
.14,4,32,48, 174, 192,32,50, 14 
6,152,32) 

200 CALL LOAD (12360, 50. 178,5 
0,181,22,6,4,224.131,124,2,2 
24,131.224,4.96,0,112,4,196, 
21M.i31.124) 

210 CALL L0AD(12384,4, 32.32. 

28,216,32,131,124,131,124,19 

,229,208.96,131,117,152,1,50 

,181,19,236,6,160) 

220 CALL L0AD(12408.48.206,1 

93,0,2,0,16,0,4,32,J2,32,2.0 

.15,128,2,1,3,0.4.32.32,32) 

230 CALL L0AD<12432,2,0,15,1 

33.2,1,1,0,4.32.32.32.2.6,15 

,137,200, 6,131,86,4,32,49,11 

8) 

240 CALL L0AD(12456,0,8,192, 
4,16,214,50,146,48,178,192.3 
2.50,114,2.12,19,64,31,21,22 
,252,54,32) 

250 CALL LOAD(12480,50,178.2 
08,96,50,178,29,18,6,160,49, 



206.3.128,152,1,50,180,22,5, 
2.64.255,224) 

260 CALL L0AD(12504,2,32,0,3 
2.16.17,152.1,50,183,22,5,2, 
128,0,0,19,37,6,0,16,35,216, 

270 CALL L0ADU2528, 50,182,2 
,33.96,0,4,32,32.32,208.96.5 
0,132,5,128,2,128,3,0,17,23, 
2.0) 

280 CALL L0AD(12552,0,32,2,1 

,50,184.2.2,2,224,4,32.32.44 

.4,192,4,32,32.36,2,0,2,224) 

290 CALL LOAD (12576, 2. 1,96,0 

,4,32,32,32,5,128,2,128,3,0, 

22,250,2,0.2.224,4,91,0,0) 

300 CALL LOAD! 12600, 0,0, 0,0, 

0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0.0) 

310 CALL L0ADU2624, 0,0,0,0, 
0^0,0,0,0,0,0,0,0,0,0,0,0,0, 

320 CALL L0AD(12648,0, 0,0,0, 
0,0,0.0,0.100.32.0,46,170,49 
,68,49, 122, 173,126,83,224,49 

• 530 CALL LOAD (12672. 192,32,1 
31,86,194.64,2.41.255,248.4. 
32,32,40,208,193,4.131, 7,4,2 
,2,49.100) 

340 CALL L0ADU2696.5, 128,5, 
132, 128, 196, 19.6,4,32. 32.40, 
220,129,152,1,49,116,22,246, 
193,4,19,82) 

350 CALL L0AD(12720,2, 132,0, 
7,21.79.4,224.131.208,200,4. 
131,64,200,4,49,62,5,132,168 
.4,131,86) 

360 CALL L0AD(12744,200,32,1 
31.86,49,64,2,224,131,224,4, 
193^12,15,0,195,12,19,1,30 

ill IfilL L0ADI12768, 1.0,4,22 
4,131,208,2,140,32,0,19,50,2 
0(5,12,131,208,29,0,2,2,64,0, 
152,18) 

380 CALL L0AD(12792,49, 117,2 

2,238. 160, 160,49.78. 16.3, 192 

,160,131, 210,29,0, [92, 146,19 

,230,200,2.131,210) 

390 CALL L0AD(i2S16, 5,194, 19 

4,114,209,96,131,85,19,9,156 



,133,22,242,9.133,2,6,49,100 

156 182,22 237) 
400 CALL L0AD(12840,6,5,22,2 
52,5,129,200,1,49,66,200,9,4 
9,60,200,12,49,58,6,153,16,2 
26,30,0) 

410 CALL L0AD<12864,2,224,49 
.63,192.9,4,32,32.40.9.209,2 
2,4.3.128,2,224,4^,68,4,193, 
6,193) 

420 CALL L0ADU2888, 215,65,2 
43,224,49,114,3.128,0,0.16.0 
,4flj0,0,0,0,6,82,83,50,51,50 

4*30 CALL LOAD! 12912,50,46, 47 
,188,5.136,152.56.53.30.19,6 
^6,8,16,4,4,224,47,186,2,8,5 

44*0 CALL LOAD (12936, 7, 32, 47, 
184.2,12.41,172,200,12.52,16 
,168\f2,S2,f0,2,12,4l, 252,13 
1,32,52,10) 

450 CALL L0AD(12960,17,5,200 
,32.52. 16,52,10,5. 160.47, 174 
,6, 12,200,12,52,14,0,6,13, 15 

M CALL L0AD(12984,19.52,6, 
8. 152,56.47. 182. 19,13.6.8.6. 
^0^53,44, 195,76,5, 141,6,8, ( 

470* CALL LINK ("START") 
480 END 

If your line out of the 
RS-232 interface has a 
Y-cable and you are using 
port 2, insert the following 
line to run the prograi via 
RS232/2: 

465 CALL LOAD (12321,18):: CA 
LL LOAD! 12345, 128):: CALL LO 
AD( 12905,8):: CALL L0ADI1291 
1,47):: CALL LOAD (12473, 128) 

NOTE: The prograi is adapted 
froi notes published bv 
Texas Instruments Inc. on 
"9902 Asynchronous Conuni ca- 
tions Controller" and "DSRLNK 
Routine for XB". 
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COMPUTING CALORIES 
I'm indebted to an amateur computer-users' group for a 
tongue-in-cheek estimate of the calories you can burn per 
hour with the following activities: 

• Deciphering unfriendly software manuals/150 

• Making back-up copies/50 

• Finding the cause of a gJitch/300 

To which I would add: Listening to computer jargon 
from dedicated users/500! 
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* A STUDENT'S SATELLITE COMPUTER * %7 

* % 

* Dr. Ray T. Tamashiro * 

* * 



****t** ****** ********t ********** ************* 

Terrilyn Morris has becoae a 'star' in her eighth grade diss. She brings a coaputer to school everyday. No, it is 
not the TI-99/4a, which she has loved using for school work in the last seveil years. She especially relies on the TI for 
doing her writing issignaents. She seens so attached to her T! that she proably would not part with it for 
anything. ..except aaybe if she could get Bruce Springsteen's autograph. 

The coiputer Terri carries around with her is a Tandy Model 102 Portable Computer. It is about the size of a stall 
notebook and fits easily in her backpack. It runs on batteries, but she also carries a power adapter to use when she can 
plug it in because that will keep the batteries froa dying sooner. The Model 102 has 24K of RAN, and that is just enough to 
store a day's worth of notes she takes in class and in the library. 

Terri's teachers and her dassaates are really impressed when she takes out the Hodel 102 in the social studies class 
or the biology class, and she starts typing as the teacher is explaining soee new eaterial on the board. She can take just 
as euch notes on it «s the other students writing on paper. Actually she seees to write acre quickly than the others, even 
though she is not a fast typist. This is because the word processor built into the coiputer allows her to do things like 
'copy text* and cutting and pasting very quickly and neatly. 

Br. and Hrs. Morris, Terri's parents, are pleased, but they were not sure it would turn out like this. They were 
worried that Terri's dasseates would cast her as a snob or an 'egghead' by taking notes on a computer. They were worried 
too about a school rule that electronic equipment like Kalkaans and booa boxes were not allowed. So before they peraitted 
Terri to take the coaputer to school they phoned the school, and discussed their concerns with the principal and the 
teacher. Both the principal and the teacher were reassuring. They said it was fine for Terri to bring the coeputer to 
school and that they would observe what happened and infort thee if any problees ctea up. 

When Terri qets hote, she connects the Model 102 to her TI using an RS-232 cable and sends all her notes to a disk in 
the TI. Later she loads her notes into the TI-Kriter word processor and does all the editing she needs to do. She '•erqes' 
the days notes with the notes she took on previous days, organizes the* according to the study units and saves thee back to 
the TI disk. Froa tiae to Mat she gets a printout of her notes. She uses the printout to study for tests. She says it is 
auch easier to study froa typed notes than froa handwritten notes. 

Saa* of Terri's friends also think it is easier to read and study froa printout notes. Several have secretly offered 
to pay her a dollar for a copy of her printed out unit notes. Terri is not sure this is right, so she hasn't collected 
aoney froa thea, but she has let thea study froa her notes when she's not using thea. 

Terri is aost thrilled about how auch tiae she saves when she does research reports. Nhen she goes to the library, she 
types inforaation froa her sources like reference aaterials, books and aagazines into her Model 102. When she gets hoae, 
she transfers the file onto TI-Kriter like she did with diss notes. She no* his the inforaation ready to create her 
report. She need not retype the notes she took at the library as her dassaates aust do. Even her friends who have word 
processors at hoae, aust take notes by hand in tht library, then retype their notes into the word processor. Terri is a 
step ahead of thea too. 

In tht last eonth, two other students in Terri's school have started to bring Model 102 portable coaputer s to school. 
Terri, her teachers, and her parents are delighted to havt stiaulated a nea approach to studying in the school. 

If you would like to set up a satellite coaputer systea like Terri did, or if you would like to help a student do so, 
you will need tht following equipaent: TI-99/4a Coaputer with 32K Meeory Expansion, RS-232, at least one disk drive, printer 
and cable, Radio Shack/Tandy Model 100, 102 or 200 portable coaputer, and a standard D8-25 RS-232-C cable. The necessary 
software (word processor and coeauni cations) for tht Model 100/102/200 is built-in tht coaputer. For the TI, a 
coaeunications software, such as Terainal Eaulator II, Fast-Tera or 4A-Talk, and a word processor lika TI-Kriter are 
required. To transfer files between tht Model 100/102/200 and tht TI, connect the* with tht RS-232 Cable, eaten the 
paraecters on both coaeunications software and ust tht noraal coaaands for uploading and downloading text (ASCII) files on 
the two coaputeri. 

z+z >♦-= >4-= z-*-z 
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a****************************************************** 



# # 

# Using the Word Processor to Communicate with # 

# the Student's Satellite Computer # 

* # 

* Dr. Roy T. Tamashlro # 

* # 



a****************************************************** 

NOTE: In the April 1987 Issue of The Computer Bridge , we Introduced Terrllyn Morris, an eighth 
grade student who used a portable notebook computer (Tandy Model 102) in school and worked with 
the material on her TI-99/4a at home. 

Several months have passed now since Terrllyn Morris first started bringing her notebook portable 
computer to school with her. The small Tandy 102 has become a faithful companion to her, and It works 
handily with the TI-99/4a she has at home. As she relies more on the Tandy as a satellite computer for 
her TI, she has run Into a few problems. Now, with at least 10 other students In the school who also carry 
around notebook portables, she can enlist their help in solving some of these problems. But she solves 
many problems on her own too. Terry Is especially proud of this one: 

One afternoon, Terry was about to transfer the notes she took at the library from her Tandy to a TI 
disk. She had done this transfer with an RS-232 cable many times with no problem. (See The Computer 
Bridge. April 1987.) But then she discovered that the communication program she uses on the TI was 
gone! Her cousin Barbara was visiting over the weekend, and the disk must have gotten misplaced in the 
excitement. It was important that to get these notes transferred because she had already organized a lot 
for her paper on a Tl-Wrlter word processor file. 

How was Terry going to solve this problem? She looked around for a while, but couldn't find the disk. 
She tried to phone Marvin Lenworth, who also has a TI computer system, so she could borrow his copy of 
"4a-Talk." But there was no answer. In a way Terry was glad he didn't answer because she thinks he is 
sort of wierd, and she wasn't sure whether she wanted to talk to him. 

After thinking a while, she wondered if Tl-Wrlter might be able to receive her file directly from the 
Tandy 102, without a communications program. She tried several ways of doing this, getting all kinds of 
errors in the process. But her perseverance paid off. She got it to work. She learned that she could send 
the notes on the Tandy directly to Tl-Writer, without a communications program! 

Terry was so thrilled she didn't bother to look further for her lost disk. She soon discovered that, In 
addition to sending files from Tandy to TI, she could send files from TI to Tandy as well. So Terry ended 
up with a method for sending AND receiving files between Tl-Writer and the Tandy portable, without a 
communications program! Of course, the next day, Terry was so excited about her discovery, she was 
talking more about this than about the research paper she was writing. 

Here Is how you can link Tl-Wrlter and the Tandy like Terry did: Connect the RS-232 cable between the 
TI and the Tandy as usual. On Tl-Wrlter, enter the Editor and type LF (load file) and [Enter]. At the 
prompt, "Load file, enter filename:," type RS232.PA*N.LF and press [Enter]. On the Tandy, select 
TELCOM, then press F3 (Stat) and use "37N1E" for the settings. Then press F4 (Term) to enter the 
terminal program, and F3 (Upload) and enter the name of the file on the Tandy. After the file is sent, 
press CLEAR (FCTN-4) on the TI. Although an error is shown, type E to edit, press [Enter] and the 
entire file will appear. 

To send a document from Tl-Wrlter to the Tandy, you may use either the Editor or the Formatter. On 
the Tandy, select F2 (Download) and answer the prompts. From Tl-Writer's Editor, select PF (Print file), 
type "RS232.PA*N.LF" and press [Enter]. From the Formatter, use "RS232.PA=N.LF M as the "Print 
devicename." 
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%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

* AUTOMATED ADDRESS BOOK * 

* Dr. Roy T. Tamashiro * 
%% ******************************** 



Several readers who liked 
the QUICK LABEL prograa (See 
THE COMPUTER BRIDGE, October 
1986) suggested that the 
prograa would be lore useful 
if you did not need to type 
in frequently used addresses. 
The AUTOMATED ADDRESS BOCK 
proqraa (listing below) 
allows you to keep addresses 
quite peraanently on disk or 
cassette, and print thea on 
regular-size or business 
envelopes or labels. On 
envelopes, the prograa will 
properly position your return 
address and the addressee. 
The proqraa also contains a 
'search" feature which allows 
you to find records using any 
part of a naee or address. 
For exasple, you can search 
for all Jills, or all 631 zip 
codes. 

Type in the proqraa below 
using Extended BASIC and save 
it on cassette or disk, IJhen 
you RUN the prograa, you see 
a aenu. Start a new address 
file by selecting option 4 
(itork with Return Address). 
You have four lines to type 
your return address. Press 
[Enter] if a line is blank. 
Select option 2 (Add Naaes) 
to enter your addressees. 
Again you have four lines to 
type the address. When you 
cheese option 3 

(See/Edit/Print Naaes) you 
are proapted for a SEARCH 
string. Type the ; tea you 
want to find. (Be sure you 
catch upper or lower cases.) 
To see all the records, leave 
the prospt blank and press 
[Return]. Use CPROC'D] 
(FCTN-6) to go on. CBACK1 to 
go the aenu. CENTER] to edit 
or [BEGIN] (FCTN-5) to print 
the address that is shown. 
Hhen print is chosen, you 



aust enter your printer nane, 
such as Pit) or RS232 (and 
extensions). Then the 
various printing options are 
displayed. Use option 5 froa 
the aain aenu to save your 
work on cassette or disk. 
Hhen you start the next 
session, option 1 (Load 
Naaes) will allow you to 
retrieve your address file. 

Note that you can organize 
your addresses using this 
prograa by having separate 
files for different groups of 
people. For exaaple, one 
file aight be for co-workers, 
another for relatives, and 
another for the cooking club 
aeabers. 

ioo !mmtmmm 

110 !t AUTOMATED I 
120 El ADBRESS BOOK t 

133 immmmmt 

140 ! AUTHOR: RGY TAHASHIRO 
150 11987, THE COMPUTER BRIO 
SE 

160 DIN At 1255):: Pt="PI0" : 
s E=l 

170 Bt(l)="Load Naees' :: B$ 
(2)«'Md Naaes' :: Bt(3)="Se 
e/Edit/Print Naaes" :: Bt(4) 
="«ork with Return Address" 
:: Bt(5)="Save Sork" :: Bt(6 
)="Exif 

180 CALL CLEAR :: DISPLAY AT 
(1,4): 'AUTOMATED ADDRESS BOO 
K": :TA8(5):"1987. Roy Tanas 
hiro" :: CALL HCHAR<2,6,45,2 

190 FOR 1=1 TO & ii DISPLAY 
AT<?*l,i)lIjB$UJll NEXT I 
200 DISPLAY AT(24,1):"Y0UR C 
HOICE (1-6):" :: ACCEPT AT!2 
4. 20) VALIDATE I " 1234S&" ) SIZE C 
1):C$ :: C=VAL(Ct) 
210 CALL CLEAR :: DISPLAY AT 
<l,14-LEN(8t(C))/2):Bt(C):: 
ON C GOTO 220,250,270,440,43 
0,460 

220 GOSUB 470 :: OPEN II: Ft, 



INPUT , INTERNAL, FIXED 123 :: 
A=0 

230 INPUT 51:At(A):: IF EOF ( 
DTHEN 240 ELSE A=A+1 :: GCT 
230 

240 CLOSE 51 :: GOTO 130 
250 »$»•" :: GCSUB 500 :: SO 
SUB 530 :: IF MORPTNCHRH 
32) ,34) THEN A=A*1 :: Af(ft)*H 

260 GOTO 180 

270 DISPLAY AT(20,l):"Er.ter 
SEARCH STRING:': "(Enter blan 
k to see all.)':SI 
280 ACCEFT AT (22,1) SIZE (-28) 
:St :: IK*! 

290 FOR SR=IN TO A :: IF Sf» 
"" OR PQS(At<SR),St,l)>0 THE 
N 300 ELSE 430 
300 GOSUB 560 :: Hi=A$!SR):: 
GOSUB 510 :: DISPLAY AT'20, 
ll:"C3EGIfl]=Print [MOPIM 
ext CBACK]=Menu tENTER]=Ed 
if 

•310 CALL KEY(0,K.S):: IF S=0 
OR K<12 OR K>15 THEN 310 
320 IF KOI 3 THEN 350 ELSE 8 
OSUB 500 :: GOSUB 530 :: At I 
SUM* 

330= IF MORPTt(CHRt(32),94) 

THEN 430 ELSE IF A=SR THEN A 

=A-t :: GOTO 430 

340 FOR I=SR TO A-l u At(I) 

=At(I+!):: NEXT I :: AtlAI*' 

" A=A-1 :: IN=SR :: GOTO 

290 

350 IF K=13 THEN SR=A 
360 IF K<>14 THEN 430 aSE S 
OSUB 560 II DISPLAY AT (15,1) 
: a Enter Printer devicenaae: 
<Blank=Abort)":Pt :: ACCEP 
T AT(17.1)SIZE(-28):Pt 
370 IF PV" THEN 430 ELSE D 
ISPLAY AT(15.1):'PRINT ON:': 
" 1 Regular Envelope":" 2 Bu 
siness Envelope':' 3 Label': 
" 4 Plain Paper':' 5 Cancel" 
380 DISPLAY AT (21,1) :"Your C 
hoice (1-5):":E :: ACCEPT AT 
(21 ,20) VALIDATEC 1234S" ) SIZE 
(-l):Et :: E=VAL(E$) 
390 IF E=5 THEN 430 ELSE DIS 



PLAY ATI21.1):'Set printer a 
nd press ENTER to start prin 

400 9 ACCEPT AT(22,20)S1ZE(1): 
Et :: OPEN HsPI :: »=1 :: I 
F E<3 THEN Wt=At(0):i GGSU8 
550 :: PRINT )l:CHRt(10),CHR 
t(13) 

410 Kt=At(SR):: IF. EM THEN 
«=20 aSE IF E=2 THEN 8*30 
420 G0SU8 550 :: CLOSE II II 
S03UB 560 : : SOTO 300 
430 NEXT SR :: BOTH 130 
440 Ht=At(0):: GOSUB 500 :: 
GG3UB 530 :: At(0)=« :: SOT 
130 

430 GOSUB 470 :: OPEN 51: Ft, 
OUTPUT, INTERNAL, FIXED 128 :: 
FOR 1=0 TO A :: PRINT 41: At 
(I):: NEXT I :: CLOSE 41 :: 
G0T3 180 
*60 END 

470 DISPLAY AT(4,1) :'Enter 
evice/Fi I enaae: ' : <B1 snk=Abo 

430 ACCEPT AT (6,1) SIZE (-28): 
Ft 

490 IF Ft=" THEN 180 ELSE R 
ETURN 

500 DISPLAY AT (20.1): "Enter 
inforaation cn 4 lines above 

510 CALL HCHAR(5,1, 45,32):: 
CALL HCHAR( 10, 1,45,32) 
520 FOR L=0 TO 3s: DISPLAY 
AT(L*6,l):SE6t(Wt.L»23+l,2S) 
:: NEXT L :: RETURN 
530 FOR L=l TO 4 :: ACCEPT A 
T(L+3,l)SIZE(-28):Hi(L)s: NE 
XT L 

540 St=Nt(l)J l RPTt(CHRt(32) 1 2 
8-LEN<Nt(l)))Mit<2)iRPTt(CHR 
t(32).28-LEN(Nt(2)))iNt<3)4R 
PTt(CHRt(32).23-LEN(Nt(3)))? [ 
Nt(4)ll RETURN 
550 FOR 1=0 TO 3 :: PRINT 51 
:TAB'H>;SE6t<as,l+I*23,2S):: 
NEXT I :: PRINT il:CHRt(10) 
,CHR$(13):: RETURN 
560 CALL HCHAR(15, 1,32,320): 
: RETURN 



*** MEETING CHANGE — SEPTEMBER 

r+c ^ >^ iHK ^ >»c -t< 3+c m ^^H'*^^*^^*^^^ 
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3o ********************************** 

* MANHATTAN STREET FINDER * 

* Dr. Roy T. Tamashiro * 
********************************** 



Terrilyn Morris is now in 
the ninth grade. Reaeaber when 
Terrilyn becaae a star in her 
eighth grade class when she 
used a Tandy Model 102 coaputer 
as a satellite coaputer to her 
TI-99/4a, which she used at 

BRID6E, flprii'l?87 H and 8r$87 
issues.) 

Over the suaaer. Terri got * 
chance to visit her favorite 
cousins in Ned York City. Hith 
their help, she learned her way 
around Manhattan. She got to 
be pretty resourceful, using 
the phone book to find out 
where "laportanf places like 
record stores and aovie 
theaters Here located. She 
even found a 'Key to Manhattan 
Street Nuabers,' which is a 
foraula for locating the 
cross-street of aliost any 
address in Manhattan. Tern 
got tired of figuring out 
cross-streets using a pencil 
and paper, so she typed the 
following TI-BASIC prograa 



called ' "Manhattan 
Finder* to help her. 



Street 



loo RENtmtmmmm 

110 RENI MANHATTAN t 
120 REN* STREET FINDER t 

130 REMttmtmtmtm 

140 REM AUTHOR: ROY TAMASHIRO 
,EO.D 

150 REM 1987.THE COMPUTER BR 
IDGE 

160 PRINT TABI3) ; "HANHATTAN 

STREET FINDER* 

170 PRINT TAB(3) j" 

180 PRINT *ENTfcl ADDRESS (AL 

L CAPS.) • 

190 INPUT A» 

200 Bt=" 

210 C*»" 

220 K=0 

230 V=0 

240 A=P0S(A«,' \U" 

250 IF A=0 THEN 850 

260 Bl=SESt(A«,l,A-l) 

270 B=VAL(B«) 

230 S=LEN(B$)+2 

290 C$*SEG$(Al,S,LEN(Af.)-S+l 



300 WJN(CI) 

310 RESTORE 

320 FOR 1=1 TO 15 

330 READ M.V1 

340 IF CfOOt THEN 360 

350 V=V1 

360 NEXT I • 

370 IF CtO'CENTRAL PARK WES 
T* THEN 400 
380 K»l 
390 V=*0 

400 IF. <(SE8$(Cl.t.3)*'AVE. 
■)«l«6))*-2 THEN 410 ELSE 4 
20 

410 V»3 

420 IF CfO'STH AVE.* THEN 5 

430 IF B>200 THEN 430 • 
440 V*13 

450 IF (B<20l)MB>400)THEN 4 
70 

460 V»U 

470 IF (B<401)*(B>600)THEN 4 
90 

480 V*J3 

490 IF CB<60l)MB>773)THEN 5 
10 

510 IF 2 ?B<776)»(B>1236>THEN 
S40 

520 K«l 
530 V=-13 

540 IF UC«*"7TH AVE.")MB<1 
80l))=-2 THEN 550 ELSE 560 
550 V=12 

560 IF <<Ct='7TH AVE.'1+(B>1 
800)) =-2 THEN 570 ELSE 580 
570 V=20 

580 IF ((Ct**RIVERSIDE DR.*) 
♦(B<368))«-2 THEN 590 ELSE 6 
10 

590 V»73 
600 K=l 

610 IF ( (Cla'RIVERSIDE DR.") 
♦lB>367))»-2 THEN 620 ELSE 6 
40 

620 V=73 
630 K'l 

640 IF CIO'BROAOHAY' THEN 7 
50 

650 IF B>734 THEN 680 
660 A=8 
670 GOTO 810 

680 IF <B<753)MB>858)THEN 7 
00 

690 V=-2? 

700 IF (B«59)t<B>958)THEN 7 
20 



710 V=-25 

720 IF <8>953)*(8<l0OO)=-2 T 
HEN 850 

730 IF B<1000 THEN 750 
740 Vs-31 

750 IF V=0 THEN 350 
760 A=IHT(B/10) 
770 IF K»l THEN 790 
730 A=INT(A/2) 
790 A=A+V 

800 IF (A<l)t(A>250)THEN 850 
810 PRINT 'CROSS STREET IS:* 
:A;'ST.' 

820 PRINT "ANOTHER STREET (Y/ 
N)'; 

830 INPUT II 

840 IF IIO'N" THEN 170 ELSE 
a|o°PRII4T * ADDRESS NOT FOUND 
860 GOTO 170 

870 DATA "1ST AVE.'.3.2ND AV 
E^j3j3RD AVE.,10,4TH AVE., 8, 

880 DATA '"AVE. OF THE AMERIC 
ASJj-12,9TH AVE.,13,10TH AVE 

' DATA *11TH AVE.', 13 
AVE.,39,Cfl 

900 DATA "LE1IN8TQN AVE. ',22 
^MADISON AVE., 27, PARK AVE., 3 

910 DATA "WEST END AVE.*,39 
920 END 

Although the . 'Manhattan 
Street Finder' .worked fine, 
Terri could sake a lot aore use 
of it if the prograa was in her 
portable Tandy coaputer that 
she carried around in her 
knapsack. Then if she needed 
to know the location of an 
address while she was riding 
the bus or train, she could do 
so handily just by pulling out 
her coaputer froa her knapsack 
and typing in the address. She 
learned how to send and convert 
the 'Manhattan Street Finder' 
prograa to her Tandy Coaputer. 
Here is how she did it: 

1. She connected the TI to 
the Tandy with an RS-232 cable. 

2. She loaded 'Manhattan 
Street Finder" into the TI. 

3. On the Tandy, she 



selected TELC0M, then pressed 
[F31 to reset the 
coaaunications paraaeter. . She 
typed 38N1E and [Enter], then 

Pressed CF41 to go into the 
erainal. She pressed CF2J to 
"download" the prograa. At the 
filenaae proapt, she typed 
"ilANH* (short for Manhattan). 

4. On the TI. she typed 
LIST "RS232.DA=8\PA=N" and 
CEnterl. 

5. After the prograa was 
sent, she pressed [F21 on the 
Tandy, then IF8] to disconnect, 
and exit TELC0M. 

6. Froa the aain aenu, she 
selected BASIC, typed in the 
following conversion prograa, 
and ran it. 

100 REM -CONVERT FILE FOR TANDY 
MODEL 100/102 
110 MAXFILES=2 

120 INPUT "ENTER FILE TO CON 
VERT':F$:GPEN F$ FOR INPUT AS i 
130 OPEN 'TEMP. DO" FOR OUTPUT 
AS 2 

140 LINEINPUT #l,A* 

150 IF LEFTI(Af.,4)»*240 'THEN 

A$="240 A=INSTRa,At,CHR$(32) ) " 

160 A=INSTR(l,A«,'SES$') 

170 IF A>0 THEN HIDI(A$,A)»'MID 

*':SQT0 160 

130 PRINT S2.AI 

190 IF EOFCl) THEN 200 ELSE 140 

200 CLOSE 1,2 

210 KILL FI+'.DO' 

220 NAME 'TEMP. DO' AS F$+'.D0" 

7. Then she pressed CF3] 
for the aenu, and selected the 
MANH.DO file froa the aain 
aenu. She then pressed CF71, 
CCtrl-Down Arrow], CF5], and 
[F81 in sequence. 

8. She then entered BASIC, 
and pressed the PASTE key. She 
could then RUN the prograa in 
her Tandy. 

9. Of course, she also 
saved it to the Tandy's aeaory 
by typing, SAVE 'MAHH' and 
pressing [Enter]. 
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* The Word Counter * 
<* * 

* Dr. Roy T. Tamashlro * 

* * 

U M M 11 Aft It U1LM M It lUUt II M It M M It It 11 It M it U It AC Mi 11 11 
TXTT W JC 7T TTTfTf Tf 7T *W IT IT TV TTTf TTTT Tf TfTTTT 

. Many people feel so good about their writing when they learn to use a word processor, they believe 
their writing deserves to be published. And they are often right. Some of their writing does deserve to 
be published. Are you one of these hopeful writers? If so, you have probably searched through the 
publication guidelines of periodicals or journals, and run across a statement like, "We invite writers to 
submit unsolicited manuscripts." 

Your fantasy goes wild. "Unsolicited could mean me. This might be a chance for someone to discover 
that I'm the next Ernest Hemingway." 

You read on: "The manuscript length should be 8,000-10,000 words." You're puzzled. You ask yourself, 
"How much is 8,000 or 10,000 words?" You search your memory. You remember that your high school 
English teacher mentioned some sort of formula for estimating how many word3 there were on a typed, 
double-spaced page. But you can't remember the formula. Was it 300 words per page, or 250, or 600? 

The program listed below, THE WORD COUNTER, will count the exact number of words in a Tl-Wrlter 
document, or other documents saved in the "Display/ Variable 80" format. To get a word count of a 
manuscript, type the program using Extended BASIC and save it. When you RUN the program, you must 
indicate whether you are working with a Tl-Writer document or another D/V 80 document. The program 
filters out "formatter commands'* as It analyzes Tl-Wrlter files. No filtering is done on other D/V 80 
files. The total word count Is shown after the file has been analyzed. In addition, the number of 
syllabified words are given — these are words which are hypenated at the end of one line and continued 
on the next line. 

100 ***************** 
110 !» WORD COUNTER * 
120 !»** **********x** 

130 ! AUTHOR: ROY TAMASHIRO.ED 
.D 

140 ! APRIL 1988 

150 CALL CLEAR :: fBNKW 

',2>:: WC=0 :: HY=fl 

160 DISPLAY AT(1,9):'V0RD CO 

UNTER*:TAB(9);' » 

:TAB(5);'1988, ROY TAMASHIR0 
■ 

170 DISPLAY AT(6,1):'PRESS:' 
: :TAB(4);'l FOR TI-WRITER F 
ILE': :TAB<4);«2 OTHER D 
/V 80 FILE": :TAB<4);'3 TO 
QUIT 1 

180 DISPLAY AT(22.7): , Y0UR C 
H0ICE (1-3):' :: ACCEPT AT(2 
2,26)VALIDATE('123')SIZE<1>: 
CS 

190 OH VAL(C3)G0T0 200,200,4 
00 

200 DISPLAY AX(22.1):'ENTER 
FILENAME:* :*DSK1.' :: ACCEPT 



AT(23,4)SIZE(-12):F$ :: Ft? 
'DSK'iF* :: OPEN ttiH 
210 DISPLAY AT(6,l):'Analyzl 
ng...' 

220 LINPUT 11: At :: CALL HCH 
AR<8,3,32,532):: DISPLAY AT< 
8,1):A* 

230 IF EOFCDOO AND OH" 
THEN 370 

240 IF A$»" THEN 360 
250 IF C$>'2" THEN 280 
260 IF SEG$(A$, 1,1 )=»'.' THEN 
360 

270 T=P0S(A$, ,A \1):: IF T>0 
THEN A$=SEG$(A$,1,M)8.' '8. 
SEG$(A$,T+1,LEN(A$)-T>:: GOT 
270 

280 IF (SEG*(A$.1,1X'!" OR 
SEG$(A$,1,1»-')AND LENCA$> 
>1 THEN A$=SEG»(A$,2,LEN<A$> 
-1):: GOTO 240 
290 IF (SEG*(A$,LEN<A$),1X' 
!* OR SEG$(A$,LEN(A$),1)> , ~" 
)AND LEN(A$»1 THEN A$=SEG*( 
A$,1,LEN(A$)-1):: GOTO 240 



300 IF A$=' * THEN 360 

310 T=P0S(A$,S2»,1):: IF T>0 

THEN A$=SEG$<A$,1,T)*«SEG$<A 
$,T+2.LEN(A$)-1):: GOTO 310 
320 FOR M TO LEN(A$> 
330 IF SEG*<A$,I,1)=»* ' THEN 

VC=WC+1 

340 IF I=LEN<A$)AND SEG$<A$, 
1,1 )=»'-" THEN HY=HYU :: WC=« 
WC-l 

350 NEXT I :: WC=WCU 
360 IF E0F(1)=0 THEN 220 
370 CLOSE U 

380 DISPLAY ATC6.1) '.'TOTAL W 
0RD COUNT ISi" ;WC: :'INCLUDI 
NG' ;HY:' SYLLABIFIED W0RD(S). 

390 DISPLAY AT(22,1):'AN0THE 
R COUNT? <Y/N>" :: ACCEPT AT 
(22,22)VALIDATE('YN')SIZE(1) 
:N* :: IF Nfc>'Y' THEN 150 
400 CALL CLEAR :: END 
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* * 

* A Coronary Risk Analysis Program * 

* # 

* Roy Tamashlro, Ed.D. * 

i» * 
a************************************************ 

With heart disease and cancer as the two leading causes o£ death In America, the media and me 
Institutions tell us how to reduce the risk of these diseases. There are diets to follow, exerc 
programs to do, and warnings to stop smoking and limit alcohol use. But how do you decide how strictly 
you should follow these guidelines and warnings? A competent physician is probably your best resource 
on this question. In addition, published guidelines, like one by the American Health Foundation (AHF, 320 

program below, CORONARY RISK RATE, computes your risk for heart disease according to the AHF 
guidelines. 

To use the CORONARY RISK RATE program, type the program In Extended BASIC, and save It to disk or 
cassette. When you RUN the program, enter the information requested. (Systolic blood pressure refers to 
the top number, In the ratio, 120/80 J After you answer the questions, the program reports your level of 
risk according to the AHF guide, and suggests what you should do. 

You may notice that other risk analysis guides differ from this one assembled by AHF. The reason is 

Insurance. 

CNOTE: If you prefer not to type the program in yourself, send me S3.00 tor $5.00 from outside USA) 

Mm^i^ diSk C ° ntalnin9 

program, as weu as Details on tne metnoo «nr usea to calculate neart Disease risk. j 



100 ! ********************** 
110 !* CORONARY RISC RATS * 
120 i «W»i«HHHHHHHtiHHHHHHI 
130 ! AUTHOR: ROY TANASHIR0 
140 {JUNE 1988 
150 OH WARNING NEXT 
160 CALL CLEAR ii DISPLAY AT 
(1,5):' CORONARY RISX RATS' t 
t CALL BCHAR(2,7,45,18) 
170 DISPLAY ATtt.Di'Prograa 
by: Roy Taoashlro't'Sourcet 
American Health':TAB(9) j'Fo 
undatlon" 

180 DISPLAY AT(24,l)t 'Answer 
the Questions Above:' t: CA 

LL HCHAR<23, 1,45,32) 

190 DISPLAY AT(7,l)i'Blood C 

holesterol Level :':'SystoIlc 
Blood Pressure t't 'Cigarette 

s Sacked Dally':' (Number of 
packs):' 

200 DISPLAY AT(il,l)t'Sex (H 
/F):':'Helght:' it DISPLAY A 
T(12,li):'ft.' :: DISPLAY AT 
<12,18):'ln.' 

210 DISPLAY AT<ll,15):'Age:' 
:: DISPLAY AT(13,l)>'Velght 
<lbs.):':'Do you have dlabe 

tes?<Y/N):' 

220 P-0 tt ACCEPT AT<7,25)SI 
ZE(3)VALIDATECDIGIT):Ca 
230 IF CH>299 THEN P»P+10 EL 
SE IP CH>249 THEN P-P+7 ELSE 
IP CH>199 THEN P-P+3 ELSE I 
F CH>179 THEN P=P+1 
240 ACCEPT AT<8,25)SI2E<3)VA 
LIDATE<DIGIT):BP 
250 I? BP>159 THEN P*P*6 ELS 



E IF BP>139 THEN P-P+4 ELSE 

IP BPM19 THEN P*P*2 

260 ACCEPT AT(10,21)SIZE(2)V 

ALIDATE(NUMERIC) :C6 

270 IF C6>-2 THEN P-P+5 ELSE 

IF CG>-1 THEN P»P*3 ELSE IF 

COO THEN P»P+1 • 
280 ACCEPT AT( 11,11 )SIZE< 1)9 
ALIDATE('MFtof"):SX$ It IF AS 
C<SX$)>96 THEN SX$-CHR$<ASC< 
SXD-32) 

290 IP SX*»" THEN 280 

300 ACCEPT AT< 11, 19)SIZEC3)V 

ALIBATE(DIGIT):AGB 

310 IF AGE>59 THEN P-P+7 ELS 

E IF AGE>49 THEN P-P+3 

320 ACCEPT AT(12,9)SIZE(1)VA 

LIDATEC'456'):PT$ :: FT«VAL< 

FT$) 

330 ACCEPT AT(12,15)SIZE(2)V 
ALIDATE<DIGIT):IC tt IF IDl 
1 THEN GOSUB 590 it GOTO 330 
340 IF SX$-'M' AND(FT<5 0R(P 
T-6 AND ID4))THEN GOSUB 590 
:: GOTO 320 

350 IF SX$»'F' AND«PT«6)QR< 
FT-5 AND IOll)0R(FT-4 AND I 
C<7))THEN GOSUB 590 n GOTO 
320 

360 ACCEPT AT( 13, 16)SIZE(3)V 

ALIDATE(DIGIT):WT 

370 IP SXf-'F' THEN 460 

380 IF FT-6 THEN 430 

390 IP IC<6 THEN X»116+3»IC 

400 IP 105 THEN X»140+<IC-7 

)*4 

410 IF IOli THEN X-157 
420 GOTO 490 



430 IF IC<2 THEN X»16i*5#IC 
440 IF IOl THEN X»170+5*UC 
-2) 

450 GOTO 490 

460 IP FT-4 THEN X»73*3*IC 
470 IF FT-5 AND IO0 THEN X- 
108+4#IC 

480 IF FT-5 AND IC-0 THEN X- 
109 

490 IF VT>1.39*X THEN P«P*2 
500 IF Vr>1.19*XTHEHP*P*2 
510 IF W>X THEN P-P+2 
520 ACCEPT AT(14,28)SIZE(1)V 
ALIDATE('YNyn'):DB$ :: IF DB 
$»'Y' OR DB$»'y' THEN P-P+5 
530 IF P<5 THEN RI-'LOW' ELS 
E IP P<14 THEN R*=" MODERATE* 

ELSE IP P<19 THEN RS-'HIGH' 

ELSE R$»'VERY HIGH' 
540 DISPLAY AT(16,l):'You ar 
e at ';»}• rlsk'i'for heart 

disease.' :: IP P<5 THEN 57 



550 DISPLAY AT< 18,1) :'You sh 
ould:' :: IP CG>0 THEN DISPL 
AY AT(18,14):'0ult sacking,' 
560 DISPLAY AT(19,l):'Reduce 
your weight,': 'cholesterol 
& blood pressure': 'through d 
let & exercise.' 
570 DISPLAY ATC24,l):'Do ano 
ther?<Y/N)« :: ACCEPT AT< 24, 
18>SIZB(l):l$ 

580 IF tt-'Y' OR r$-'y' THEN 
150 ELSE CALL CLEAR :: END 
590 CALL SOUND<100,990,0):: 
RETURN 
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I i S3 

I COMPUTING FOR YOUR RETIREMENT INCOME I 
I I 
I Dr. Roy Tamashlro I 
I l 



Although many of us are quite a few years away from retirement, we might be hoping to retire early, or 
to spend more years in retirement. To get a truly realistic picture of your financial future, you should 
consult an expert in this field. The computer program below ("RETIREMENT INCOME ANALYSIS") gives a 
very rough estimate of how you might be able enjoy a financially comfortable retirement. 

"RETIREMENT INCOME ANALYSIS" works In TI-BASIC or EXTENDED BASIC. Type in the program, 
proofread it, and SAVE it to a tape or disk. When the program Is run you are prompted for the following 
items: 

This year Is: 19_ (Look at a calendar If you don't know.] 

Current Monthly Income: $ (Enter your gross monthly Income.] 

Inflation Rate W IHake an educated guess. The Inflation rate Is about 4 percent now.] 

Years to Retirement: [Subtract your present age from your retirement age.] 

Amount Invested for Retirement J (Include all of your retirement assets Including IRAs, pension plans, 

retirement annuities, etc., but do NOT Include non-retirement investments, 

checking or savings accounts, or Social Security.! 
Assumed Interest Rate (*) (Estimate an annual average of interest or dividends on your retirement Investments 

between now and your retirement age.] 
Annual Additions to Retirement Investments: $ (Estimate how much you will add per year to your 

Investments.] 

The program calculates how much Income you will need when you retire. Many experts say that you need 
about 75 percent of your pre-retirement Income, but with Inflation included in the calculation, the monthly 
figure at retirement Is likely to be higher than your present income. 

Social Security benefits are not included in the analysis, nor are the taxes you will owe on your 
various tax -deferred investments. You may want to adjust the recommendations given to account for 
these and other omitted factors. 

100 REM HlliHlHHll >*(ltRATE>'YEARS)+.5> o receive' :'about ♦'jFUIURBi E)«12)/RATE>/<«HRATE)"YEAR 

110 REM « RETIREMENT « 230 INPUT 'Amount Invested f 'per month on" S-D/RATEH.5) 

120 REM* INCOME * or retire- ment: $' :B 300 PRINT 'your Investment I 360 PRINT 'raise your annual 

130 REM * ANALYSIS « 240 INPUT 'Assumed Interest nterest or dividends.' additions by $';H0RE; 

140 REN ***xx*mm»x Rate(*):':IT 310 IP FUTURE>=NEEDED THEN 3 370 PRINT 'to total ':'$';M0 

150 REM 1988, ROY TAHASH1R0 250 INPUT 'Annual additions 90 RE+ADD;'per year.' 

160 DEF RATE=IT*.01 to retire- ment Investment $ 320 PRINT :'If you will have 380 GOTO 400 

170 GOSUB 410 . ":ADD no other':' Income, then you 390 PRINT :'You are in an ad 

180 INPUT 'This Year Is: 19' 260 FUTURE=INT(((B*( URATE)* should*:' Increase your Inve equeate investment posit 

:N0V YEARS* ADD* ( ( ( 1 +RATE > 'YEARS- 1 stments' ion for your retirement.' 

190 INPUT 'Current Honthly I >/RATE»»RATE)/12*.5> 330 PIX=INT(((12»(NEEDED-FUT 400 END 

ncome:V:M0NTHLY 270 GOSUB 410 URE))/RATE)/( URATE) 'YEARS*. 410 CALL CLEAR 

200 INPUT 'Inflation Factor 280 PRINT 'You will need abo 5) 420 PRINT ' RETIREMENT INCOM 

CU:MT ut $';NEEDED:' per month when 340 PRINT 'by about $';FIX;' E ANALYSIS' 

210 INPUT 'Years to Retlreme you retire ln';1900+NOV+YEA to':'$';FIX+B;'thls year, or 430 PRINT ' ========= 

nt: ":YEARS RS ■ ========• 

220 NEEDED= I NT( ( ( . 75»M0NTHLY 290 PRINT :'You can expect t 350 M0RE=INT( ( ( (NEEDED- FUTUR 440 RETURN 



REMINDER : 

CHIC AG O / M ILWAUKEE F^AIR. 
NOVEMBER 11—13 
CONTACT TOM and/or JAN KNAPP FOR FURTHER DETAILS 



COMPUTER BRIDGE SEPTEMBER 1988, P. 5 



COWERTWG HHI-flEMORY CASSETTE PROGRAMS TO DISKS 



Roy T. Taiashiro, Ed.D. 



The Mini-Meiory Cartridge is an inexpensive Nay to be able to run Assembly Language programs if you do not have the 
Editor-Asseibler package and Disk Drive systei. For exaiple, TI-HINIHRITER is a word processing prograi which will operate 
just on the console with Mini-Meiory Cartridge and cassette tape recorder. For those who have disk drives, however, it would 
be handy to be able to load cassette-Based-Mini-Meiory programs froi disk rather than froi cassette tape. The lanual for 
Mini-Meiory does not give a way to copy an asseibly language prograi iade Tor tape to a disk. The prograi below will allow 
you to do just that. 

To use MINI-MEMORY TAPE-TO-DISK CONVERTER, the systei lust contain the 32-K Meiory expansion and Disk Drive. Load the 
cassette progran into the cartridge using the EASY-BUS V operation. Then exit using <0UIT> to the tain title screen, and 
select TI-BASIC. Load and run the prograi below. At the FILE NAME proipt, type the disk filenaie under which you wish to 
save the prograi (for exaiple, DSK I. PROGRAM). The program will begin to convert the contents of the cartridge at >7000 to 
>7FFF to an asseibly language object code. This process will take about 25 ■inutes. A tone will sound when the job has been 
completed. 

When you want to load the prograi froi disk to the Mini-Meiory Cartridge, select option 3 (Mini Meiory) froi the lain 
selection list, then choose the "Load and Run' option(ll). At the proipt "FILE NAME?" type the naie you gave your prograi 
(for exaiple, DSK 1. PROGRAM). Then press <ENTER>. After the file has loaded press <ENTER> again, and you will see the 
Mini-Meiory Menu. If the program operates froi Mini-Meiory, press 2(Run) and type the naae of the program. If the prograi 
operates froi TI-BASIC via CALL LINK, then press <QU1T> (FCTN-=) and re-select TI-BASIC froi the lain selection list. Then 
load your BASIC prograi and RUN it. 



too rem tmmmmm ■ 

110 REM I MINI-MEMORY I 
120 REM I TAPE-TO-DISK t 
130 REM I CONVERTER t 

140 rem tmmmmm 

150 REM AUTHOR: 



160 CALL CLEAR 
170 EL=2 

180 INPUT "FILE NAME: ":F« 
190 OPEN ll:F»,DISPLAY ,FIXE 
D 80 

200 PRINT II: "00000 9 
A0009 A020B02E0BAO0OBO20 1 B000 
0B0203B 1 000B8OC1 B 1 3057F35DF 



0001" 

210 PRINT ll:"9A0308D861BA04 
6B7000B0581E10F9B0300B0002BO 
2E0B83E0B0460B00707F2E6F 



0002" 

220 FOR 1=28672 TO 32767 STE 
P 22 

230 A«= , 9A 1 
240 L=I+1235B 
250 IF L<45056 THEN 280 
260 L=L-4096 
270 A$="9B' 
280 L=L-40960 
290 A=INT(L/256) 
300 IF L<256 THEN 320 
310 L=(L/256-A)t256 
320 60SUB 610 
330 At=AUSE6$(H$.2.1) 
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340 A=L 

350 60SUB 610 

360 A*=AMH$ 

370 FOR J=0 TO 21 STEP 2 

380 IF I+J+K<32768 THEN 410 

390 J=21 

400 SOTO 470 

410 M"Mt*B' 

420 FOR K=0 TO 1 

430 CALL PEEK<I+J+K,A) 

440 G0SUB 610 

450 A$=A$iH$ 

460 NEXT K 

470 NEXT J 

480 60SUB 840 

490 NEXT I 

500 A$='9B042B4544B71B6' 

510 60SUB 840 

520 A$=MA020' 

530 60SUB 840 

540 A»='6A020L0AD0 7FD50F 1 

550 60SUB 850 

560 A«=": 99/4 AS' 

570 G0SUB 850 

580 CLOSE tl 

590 CALL S0UND13000, 700,0) 
600 END 
610 Hi=" 

620 IF AO0 THEN 650 
630 Hi='00" 
640 RETURN 

650 IF A>15 THEN 690 
660 G0SUB 750 
670 H$='0;&H« 



680 RETURN 

690 A2=(A/16-INT(A/16))I16 

700 A=INT(A/16) 

710 G0SUB 750 

720 A=A2 

730 G0SUB 750 

740 RETURN 

750 IF AO0 THEN 780 
760 H«=H$fc'0" 
770 RETURN 

780 ON A G0SUB 800,800,800,8 

00,800,800,800,800,800,820,8 

20,820,820,820,820 

790 RETURN 

800 Ht=Ht&STRt(A) 

810 RETURN 

820 H«=H$lCHRJ<A+55) 

830 RETURN 

840 A$=A$f8F2E6F" 

850 EL=EL+1 

860 ELI=STRt(EL) 

870 IF EL>9 THEN 900 

880 EL«="00"4STRJ(EL) 

890 GOTO 920 

900 IF EL>99 THEN 920 

910 EL$="0"KTR$(EL) 

920 FOR H=LEN(Ai)+l TO 76 

930 A$=AUCHR$(32) 

940 NEXT M 

950 A$=AU , , &EL$ 

960 PRINT II: AS 

970 RETURN 
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